diff --git a/META.yml b/META.yml deleted file mode 100755 index c05e95c..0000000 --- a/META.yml +++ /dev/null @@ -1,17 +0,0 @@ ---- #YAML:1.0 -name: Template-Plugin-AudioFile-Info -version: 0.01 -license: perl -distribution_type: module -requires: - AudioFile::Info: 0 - Template: 0 - perl: 5.6.0 -recommends: {} -build_requires: {} -conflicts: {} -provides: - Template::Plugin::AudioFile::Info: - file: lib/Template/Plugin/AudioFile/Info.pm - version: 0.01 -generated_by: Module::Build version 0.20 diff --git a/Makefile.PL b/Makefile.PL deleted file mode 100755 index bc6864c..0000000 --- a/Makefile.PL +++ /dev/null @@ -1,28 +0,0 @@ - - unless (eval "use Module::Build::Compat 0.02; 1" ) { - print "This module requires Module::Build to install itself.\n"; - - require ExtUtils::MakeMaker; - my $yn = ExtUtils::MakeMaker::prompt - (' Install Module::Build now from CPAN?', 'y'); - - unless ($yn =~ /^y/i) { - warn " *** Cannot install without Module::Build. Exiting ...\n"; - exit 1; - } - - require Cwd; - require File::Spec; - require CPAN; - - # Save this 'cause CPAN will chdir all over the place. - my $cwd = Cwd::cwd(); - my $makefile = File::Spec->rel2abs($0); - - CPAN::Shell->install('Module::Build::Compat'); - - chdir $cwd or die "Cannot chdir() back to $cwd: $!"; - exec $^X, $makefile, @ARGV; # Redo now that we have Module::Build - } - Module::Build::Compat->run_build_pl(args => \@ARGV); - Module::Build::Compat->write_makefile(); diff --git a/lib/Template/Plugin/AudioFile/Info.pm b/lib/Template/Plugin/AudioFile/Info.pm index 91be320..f4e9b34 100755 --- a/lib/Template/Plugin/AudioFile/Info.pm +++ b/lib/Template/Plugin/AudioFile/Info.pm @@ -11,7 +11,7 @@ require Exporter; our @ISA = qw(Exporter AudioFile::Info Template::Plugin); -our $VERSION = '0.01'; +our $VERSION = sprintf "%d.%02d", '$Revision$ ' =~ /(\d+)\.(\d+)/; sub new { my ($class, $context, $file) = @_; @@ -75,6 +75,12 @@ like this. There are, of course, many other ways to do it. +=head1 METHODS + +=head2 new + +Constructor for this object. Simply delegates to AudioFile::Info. + =head1 SEE ALSO =over 4 diff --git a/t/pod-coverage.t b/t/pod-coverage.t new file mode 100644 index 0000000..703f91d --- /dev/null +++ b/t/pod-coverage.t @@ -0,0 +1,6 @@ +#!perl -T + +use Test::More; +eval "use Test::Pod::Coverage 1.04"; +plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; +all_pod_coverage_ok(); diff --git a/t/pod.t b/t/pod.t new file mode 100644 index 0000000..976d7cd --- /dev/null +++ b/t/pod.t @@ -0,0 +1,6 @@ +#!perl -T + +use Test::More; +eval "use Test::Pod 1.14"; +plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; +all_pod_files_ok();