[% classes = diagram.Classes %]
[% FOREACH class = classes %]
[% SET filename = class.Name.split('::').join('_') _ ".pod" %]
[% USE String %]
[% SET filename = String.new(class.Name).replace('::', '_') _ '.pod' %]
creating pod for [% class.Name %] : [% filename %]
[% FILTER redirect(filename) %]
=head1 NAME
[%class.Name%] - package for [% class.Name %]
=head1 DESCRIPTION
description goes here.
lorum ipsum
=head1 VERSION
version 0.00
=head1 SYNOPSIS
Quick summary of what the module does.
Perhaps a little code snippet.
use [%class.Name%];
my $foo = [%class.Name%]->new;
[% FOREACH op = class.Operations %]
my $xxx = [% class.Name %]->[% op.name %]( .. );
[% END %]
[% IF class.Attributes %]
=head1 ATTRIBUTES
=over 4
[% FOREACH at = class.Attributes %]
=item [% at.name %]
[% END %]
=back
[% END %]
[% IF class.Operations %]
=head1 METHODS
[% FOREACH op = class.Operations %]
=head2 [% op.name %]
my $xxx = [% class.Name %]->[% op.name %] ( [% FOREACH par = op.Param %] [% par.Name %] => xxx [% IF loop.last %] [% ELSE %], [% END %] [% END %] );
takes arguments : [% FOREACH par = op.Param %] [% par.Name %] [% IF loop.last %] [% ELSE %], [% END %] [% END %]
returns :
[% END %]
[% END %]
=cut
### CODE GOES HERE ###
=head1 NOTES
Created using Autodia (http://www.aarontrevena.co.uk/opensource/autodia/index.html) : autodia.pl -l perl -r -d path/to/files -t /path/to/pod.tt -F -O
=head1 SEE ALSO
[% IF class.Inheritances %]
Inherits from :
=over 4
[% FOREACH inheritence = class.Inheritances %]
[% SET superclass = diagram.object_from_id(inheritence.Parent) %]
=item [% superclass.Name%]
[% END %]
=back
[% END %]
[% IF class.Dependancies %]
Requires / Uses :
=over 4
[% FOREACH dependancy = class.Dependancies %]
[% SET component = diagram.object_from_id(dependancy.Parent) %]
=item [% component.Name %]
[% END %]
=back
[% END %]
=head1 AUTHOR
A U Thor, C<< <xxxx@xxxx.com> >>
=head1 BUGS
Report bugs via http://rt.cpan.org
=head1 COPYRIGHT & LICENSE
Copyright A U Thor 2007 All Rights Reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.1 or, at your option, any later version of Perl 5 you may have available.
=cut
1; # End of [% class.Name %]
[% END %]
[% END %]