X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Foverload.pm;h=21a4b671ffc1cefbc0a29b182acf7e6a55b2dca0;hb=36902e12d2b30e9370acddd3ddab927d842061cf;hp=712c8eda5761e1b3f148f2475af51c1860bc0ad1;hpb=f216259dc50e3a06164781e025bbb486cdc1dbaa;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/overload.pm b/lib/overload.pm index 712c8ed..21a4b67 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -974,7 +974,7 @@ would would lead to a memory leak. Both these problems can be cured. Say, if we want to overload hash dereference on a reference to an object which is I as a hash itself, the only problem one has to circumvent is how to access -this I hash (as opposed to the I exhibited by +this I hash (as opposed to the I hash exhibited by the overloaded dereference operator). Here is one possible fetching routine: sub access_hash { @@ -986,7 +986,7 @@ overloaded dereference operator). Here is one possible fetching routine: $out; } -To move creation of the tied hash on each access, one may an extra +To remove creation of the tied hash on each access, one may an extra level of indirection which allows a non-circular structure of references: package two_refs1; @@ -1023,10 +1023,10 @@ level of indirection which allows a non-circular structure of references: $a->[$key]; } -Now if $baz is overloaded like this, then C<$bar> is a reference to a +Now if $baz is overloaded like this, then C<$baz> is a reference to a reference to the intermediate array, which keeps a reference to an actual array, and the access hash. The tie()ing object for the access -hash is also a reference to a reference to the actual array, so +hash is a reference to a reference to the actual array, so =over @@ -1113,7 +1113,7 @@ inside such a method it is not necessary to pretty-print the I $a and $b of an object. In the above subroutine C<"[$meth $a $b]"> is a catenation of some strings and components $a and $b. If these components use overloading, the catenation operator -will look for an overloaded operator C<.>, if not present, it will +will look for an overloaded operator C<.>; if not present, it will look for an overloaded operator C<"">. Thus it is enough to use use overload nomethod => \&wrap, '""' => \&str; @@ -1216,7 +1216,7 @@ mutator methods (C<++>, C<-=> and so on), does not do deep copying (not required without mutators!), and implements only those arithmetic operations which are used in the example. -To implement most arithmetic operations is easy, one should just use +To implement most arithmetic operations is easy; one should just use the tables of operations, and change the code which fills %subr to my %subr = ( 'n' => sub {$_[0]} ); @@ -1238,7 +1238,7 @@ special to make C<+=> and friends work, except filling C<+=> entry of way to know that the implementation of C<'+='> does not mutate the argument, compare L). -To implement a copy constructor, add C<'=' => \&cpy> to C +To implement a copy constructor, add C<< '=' => \&cpy >> to C line, and code (this code assumes that mutators change things one level deep only, so recursive copying is not needed):