diff options
author | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
commit | a4c42bfb2337d37da89d789cb8cc226367994e32 (patch) | |
tree | c3eabdef5d565a4e515d2be0d9d4d0540bde0250 /Master/tlpkg/tlperl/lib/Pod/Simple/Methody.pm | |
parent | 8274475057f024d35332ac47c2e2f23ea156e6ed (diff) |
perl 5.14.2 from siep
git-svn-id: svn://tug.org/texlive/trunk@26525 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Simple/Methody.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Pod/Simple/Methody.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Simple/Methody.pm b/Master/tlpkg/tlperl/lib/Pod/Simple/Methody.pm index bed3e8662b2..0d69b7a1d99 100644 --- a/Master/tlpkg/tlperl/lib/Pod/Simple/Methody.pm +++ b/Master/tlpkg/tlperl/lib/Pod/Simple/Methody.pm @@ -4,7 +4,7 @@ package Pod::Simple::Methody; use strict; use Pod::Simple (); use vars qw(@ISA $VERSION); -$VERSION = '3.14'; +$VERSION = '3.16'; @ISA = ('Pod::Simple'); # Yes, we could use named variables, but I want this to be impose @@ -51,12 +51,12 @@ Pod::Simple::Methody -- turn Pod::Simple events into method calls use strict; package SomePodFormatter; use base qw(Pod::Simple::Methody); - + sub handle_text { my($self, $text) = @_; ... } - + sub start_head1 { my($self, $attrs) = @_; ... @@ -65,7 +65,7 @@ Pod::Simple::Methody -- turn Pod::Simple events into method calls my($self) = @_; ... } - + ...and start_/end_ methods for whatever other events you want to catch. =head1 DESCRIPTION |