#!/usr/bin/perl
use strict;
use LEOCHARRE::Dir ':all';
our $VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)/g;
sub usage {q{lsf [OPTIONS].. DIR..
List files.
-h help
-a show all, including hidden
-v version
Try 'man lsf' for more info.
}};
@ARGV or push @ARGV, '.';
for (@ARGV){
-d $_ or warn("Arg is not dir: '$_'\n") and next;
map { print "$_\n" }
$opt_a ? lsf($_) : grep { !/^\./ } lsf($_);
}
__END__
=pod
=head1 NAME
lsf - List files.
=head1 USAGE
lsf [OPTIONS].. DIR..
-h help
-a show all, including hidden
-v version
=head1 SEE ALSO
lsutils - parent package
=head1 AUTHOR
Leo Charre leocharre at cpan dot org
=head1 COPYRIGHT
Copyright (c) 2009 Leo Charre. All rights reserved.
=head1 LICENSE
This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself, i.e., under the terms of the "Artistic License" or the "GNU General Public License".
=head1 DISCLAIMER
This package is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the "GNU General Public License" for more details.
=cut