summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Hash/Util/FieldHash.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Hash/Util/FieldHash.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Hash/Util/FieldHash.pm17
1 files changed, 9 insertions, 8 deletions
diff --git a/Master/tlpkg/tlperl/lib/Hash/Util/FieldHash.pm b/Master/tlpkg/tlperl/lib/Hash/Util/FieldHash.pm
index 4f833fffb40..2441491fa5c 100644
--- a/Master/tlpkg/tlperl/lib/Hash/Util/FieldHash.pm
+++ b/Master/tlpkg/tlperl/lib/Hash/Util/FieldHash.pm
@@ -5,7 +5,7 @@ use strict;
use warnings;
use Scalar::Util qw( reftype);
-our $VERSION = '1.10';
+our $VERSION = '1.15';
require Exporter;
our @ISA = qw(Exporter);
@@ -103,7 +103,8 @@ Returns the reference address of a reference $obj. If $obj is
not a reference, returns $obj.
This function is a stand-in replacement for
-L<Scalar::Util::refaddr|Scalar::Util/refaddr EXPR>, that is, it returns
+L<Scalar::Util::refaddr|Scalar::Util/"$addr = refaddr( $ref )">,
+that is, it returns
the reference address of its argument as a numeric value. The only
difference is that C<refaddr()> returns C<undef> when given a
non-reference while C<id()> returns its argument unchanged.
@@ -323,7 +324,7 @@ make things work, but the functions or methods used by the hooks
must be provided by each inside-out class.
A general solution to the serialization problem would require another
-level of registry, one that that associates I<classes> and fields.
+level of registry, one that associates I<classes> and fields.
So far, the functions of C<Hash::Util::FieldHash> are unaware of
any classes, which I consider a feature. Therefore C<Hash::Util::FieldHash>
doesn't address the serialization problems.
@@ -522,8 +523,8 @@ to a file F<Example.pm>.
use strict; use warnings;
{
- package Name_hash; # standard implementation: the object is a hash
-
+ package Name_hash; # standard implementation: the
+ # object is a hash
sub init {
my $obj = shift;
my ($first, $last) = @_;
@@ -714,7 +715,7 @@ incompatibility of object bodies.
{
package Name;
- use base 'Name_id'; # define here which implementation to run
+ use parent 'Name_id'; # define here which implementation to run
}
@@ -737,8 +738,8 @@ incompatibility of object bodies.
# Definition of NamedFile
package NamedFile;
- use base 'Name';
- use base 'IO::File';
+ use parent 'Name';
+ use parent 'IO::File';
sub init {
my $obj = shift;