view release on metacpan or  search on metacpan

lib/App/Module/Setup/Templates/Default.pm  view on Meta::CPAN

sub function2 {
}


=head1 AUTHOR

[% author.name %], C<< <[% author.cpanid %] at CPAN dot org> >>


=head1 BUGS

Please report any bugs or feature requests to C<bug-[% module.distnamelc %] at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=[% module.distname %]>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.


=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc [% module.name %]

You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=[% module.distname %]>

=item * Search CPAN

L<http://search.cpan.org/dist/[% module.distname %]>

=back


=head1 ACKNOWLEDGEMENTS


=head1 COPYRIGHT & LICENSE

Copyright [% current.year %] [% author.name %], all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.


=cut

1; # End of [% module.name %]
[% FILE t/00-load.t %]
#! perl -T

use Test::More tests => 1;

BEGIN {
	use_ok( '[% module.name %]' );
}

diag( "Testing [% module.name %] $[% module.name %]::VERSION, Perl $], $^X" );
EOD

my @files;
my @dirs;
my %data;

sub load {
    my ( $self ) = ( @_ );

    return ( \@files, \@dirs, \%data ) if @files;

    open( my $fd, '<', \$sar );
    my $file;
    my %dirs;
    while ( <$fd> ) {
	if ( /\[\%\s*FILE\s+(.*?)\s*\%\]/ ) {
	    push( @files, $file = $1 );
	    $dirs{ dirname($file) }++ if dirname($file);
	}
	elsif ( $file ) {
	    $data{$file} .= $_;
	}
	else {
	    die("Internal error: Leading data in sar");
	}
    }
    @dirs = sort keys %dirs;
    ( \@files, \@dirs, \%data );
}

1;