diff options
author | Karl Williamson <public@khwilliamson.com> | 2013-01-24 14:41:02 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2013-01-24 19:04:48 -0700 |
commit | f703fc96a75eab3db924e41a52531905784836de (patch) | |
tree | 3e1d1202c4d1a4efaa959f0af21a57e7babfcacd /dist/Attribute-Handlers/lib | |
parent | e58c5aaf5fae1951e56c0433da91fbbfb31b620c (diff) | |
download | perl-f703fc96a75eab3db924e41a52531905784836de.tar.gz |
Fix various minor pod issues
These were all uncovered by the new Pod::Checker, not yet in core.
Fixing these will speed up debugging the new Checker.
Diffstat (limited to 'dist/Attribute-Handlers/lib')
-rw-r--r-- | dist/Attribute-Handlers/lib/Attribute/Handlers.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/dist/Attribute-Handlers/lib/Attribute/Handlers.pm b/dist/Attribute-Handlers/lib/Attribute/Handlers.pm index 36f6e2e81c..60ee32a59c 100644 --- a/dist/Attribute-Handlers/lib/Attribute/Handlers.pm +++ b/dist/Attribute-Handlers/lib/Attribute/Handlers.pm @@ -4,7 +4,7 @@ use Carp; use warnings; use strict; use vars qw($VERSION $AUTOLOAD); -$VERSION = '0.93'; # remember to update version in POD! +$VERSION = '0.94'; # remember to update version in POD! # $DB::single=1; my %symcache; @@ -366,7 +366,7 @@ Thereafter, any subroutine declared with a C<:Loud> attribute in the class LoudDecl: package LoudDecl; - + sub foo: Loud {...} causes the above handler to be invoked, and passed: @@ -581,7 +581,7 @@ variables. For example: use Attribute::Handlers; use Tie::Cycle; - + sub UNIVERSAL::Cycle : ATTR(SCALAR) { my ($package, $symbol, $referent, $attr, $data, $phase) = @_; $data = [ $data ] unless ref $data eq 'ARRAY'; @@ -591,9 +591,9 @@ variables. For example: # and thereafter... package main; - + my $next : Cycle('A'..'Z'); # $next is now a tied variable - + while (<>) { print $next; } @@ -655,7 +655,7 @@ If the attribute name is unqualified, the attribute is installed in the current package. Otherwise it is installed in the qualifier's package: package Here; - + use Attribute::Handlers autotie => { Other::Good => Tie::SecureHash, # tie attr installed in Other:: Bad => Tie::Taxes, # tie attr installed in Here:: @@ -668,7 +668,7 @@ facilitate this, Attribute::Handlers recognizes a special "pseudo-class" -- C<__CALLER__>, which may be specified as the qualifier of an attribute: package Tie::Me::Kangaroo:Down::Sport; - + use Attribute::Handlers autotie => { '__CALLER__::Roo' => __PACKAGE__ }; @@ -792,7 +792,7 @@ would cause the following handlers to be invoked: # my %hsh :Good(q/bye) :Omni(q/bus/); - + MyClass::Good:ATTR(HASH)( 'SomeOtherClass', # class 'LEXICAL', # no typeglob \%hsh, # referent @@ -800,7 +800,7 @@ would cause the following handlers to be invoked: 'q/bye' # raw attr data 'CHECK', # compiler phase ); - + MyClass::Omni:ATTR(HASH)( 'SomeOtherClass', # class 'LEXICAL', # no typeglob \%hsh, # referent |