X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FTest-EOL.git;a=blobdiff_plain;f=lib%2FTest%2FEOL.pm;h=bd736bac24e4a1843a2fb735506b042dae6b444d;hp=3976a44e72f8924a511f11464b281a9a43272398;hb=94bc2901714b2203fc2ae3013b3991007f61f8ab;hpb=f17f4176809cf543fb1d04b24d83f9af10597b3b diff --git a/lib/Test/EOL.pm b/lib/Test/EOL.pm index 3976a44..bd736ba 100644 --- a/lib/Test/EOL.pm +++ b/lib/Test/EOL.pm @@ -1,4 +1,5 @@ package Test::EOL; +# ABSTRACT: Check the correct line endings in your project use strict; use warnings; @@ -8,9 +9,7 @@ use File::Spec; use FindBin qw($Bin); use File::Find; -use vars qw( $VERSION $PERL $UNTAINT_PATTERN $PERL_PATTERN); - -$VERSION = '0.7'; +use vars qw( $PERL $UNTAINT_PATTERN $PERL_PATTERN); $PERL = $^X || 'perl'; $UNTAINT_PATTERN = qr|^([-+@\w./:\\]+)$|; @@ -178,11 +177,6 @@ sub _untaint { } 1; -__END__ - -=head1 NAME - -Test::EOL - Check the correct line endings in your project =head1 SYNOPSIS @@ -229,9 +223,7 @@ modules, etc) for the presence of windows line endings. A list of functions that can be exported. You can delete this section if you don't export anything, such as for a purely object-oriented module. -=head1 FUNCTIONS - -=head2 all_perl_files_ok( [ \%options ], [ @directories ] ) +=func all_perl_files_ok( [ \%options ], [ @directories ] ) Applies C to all perl files found in C<@directories> (and sub directories). If no <@directories> is given, the starting point is one level @@ -246,28 +238,11 @@ If the test plan is defined: the total number of files tested must be specified. -=head2 eol_unix_ok( $file [, $text] [, \%options ] ) +=func eol_unix_ok( $file [, $text] [, \%options ] ) Run a unix EOL check on C<$file>. For a module, the path (lib/My/Module.pm) or the name (My::Module) can be both used. -=head1 AUTHOR - -Tomas Doran (t0m) C<< >> - -=head1 BUGS - -Testing for EOL styles other than unix (\n) currently unsupported. - -The source code can be found on github, as listed in C< META.yml >, -patches are welcome. - -Otherwise please report any bugs or feature requests to -C, or through the web interface at -L. -I will be notified, and then you'll automatically be notified of progress on -your bug as I make changes. - =head1 ACKNOWLEDGEMENTS Shamelessly ripped off from L. @@ -277,12 +252,4 @@ Shamelessly ripped off from L. L, L. L, L, L, L. -=head1 COPYRIGHT & LICENSE - -Copyright 2009 Tomas Doran, some rights reserved. - -This program is free software; you can redistribute it and/or modify it -under the same terms as Perl itself. - =cut -