#!/usr/bin/perl
use strict;
use vars qw($VERSION);
use LEOCHARRE::CLI2 ':all', 'a';
use LEOCHARRE::Dir ':all';
$VERSION = sprintf "%d.%02d", q$Revision: 1.6 $ =~ /(\d+)/g;

@ARGV or push @ARGV, '.';

for (@ARGV){
   -d $_ or warn "not dir: $_, skipped\n" and next;
   my @ls =  ls($_);

   printf "%5d %s\n", (scalar @ls), ($opt_a ? Cwd::abs_path($_) : $_ );
}


exit;



sub usage {
   q{lscount [OPTION].. PATH..
List count of entries in PATH.

   -d       debug
   -h       help
   -v       version
   -a       print abs path

Try 'man lscount' for more info.   
}}

__END__

=pod

=head1 NAME

lscount - list count of entries

=head1 DESCRIPTION

All entries are counted, subdirs, links, files, etc.

=head1 USAGE

lscount [OPTION].. PATH..

   -d       debug
   -h       help
   -v       version
   -a       abs path


=head1 AUTHOR

Leo Charre leocharre at cpan dot org

=head1 SEE ALSO

lsutils - master package

=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