11package XML::Generator ;
22
33use strict;
4+ use warnings;
45use Carp;
56use vars qw/ $VERSION $AUTOLOAD/ ;
67
@@ -27,7 +28,7 @@ XML::Generator - Perl extension for generating XML
2728 print $X->foo($X->bar({ baz => 3 }, $X->bam()),
2829 $X->bar([ 'qux' => 'http://qux.com/' ],
2930 "Hey there, world"));
30-
31+
3132Either of the above yield:
3233
3334 <foo xmlns:qux="http://qux.com/">
@@ -451,7 +452,7 @@ Note that if you already have an C<AUTOLOAD> defined, it will be overwritten.
451452=head2 :stacked
452453
453454Implies :import, but if there is already an C<AUTOLOAD > defined, the
454- overriding C<AUTOLOAD > will still give it a chance to run. See L<"STACKED
455+ overriding C<AUTOLOAD > will still give it a chance to run. See L<"STACKABLE
455456AUTOLOADs">.
456457
457458=head2 ANYTHING ELSE
@@ -743,7 +744,7 @@ sub xmlcmnt {
743744 return XML::Generator::comment-> new([$xml ]);
744745}
745746
746- =head2 xmldecl(@args)
747+ =head2 xmldecl (@args)
747748
748749Declaration. This can be used to specify the version, encoding, and
749750other XML-related declarations (i.e., anything inside the <?xml?> tag).
@@ -941,7 +942,7 @@ So, let's assume that we want to provide a custom HTML table() method:
941942
942943 sub table {
943944 my $self = shift;
944-
945+
945946 # parse our args to get namespace and attribute info
946947 my($namespace, $attr, @content) =
947948 $self->XML::Generator::util::parse_args(@_)
@@ -1554,6 +1555,11 @@ Modular rewrite to enable subclassing
15541555
15551556=back
15561557
1558+ =head1 LICENSE
1559+
1560+ This library is free software, you can redistribute it and/or modify
1561+ it under the same terms as Perl itself.
1562+
15571563=head1 SEE ALSO
15581564
15591565=over 4
0 commit comments