initial commit

.gitignore

@@ -0,0 +1,13 @@
+cover_db
+META.yml
+Makefile
+blib
+inc
+pm_to_blib
+MANIFEST
+MANIFEST.bak
+Makefile.old
+tmon.out
+cover_db_view
+nytprof
+.DS_Store

.shipit

@@ -0,0 +1,3 @@
+steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN
+git.tagpattern = release-%v
+git.push_to = origin

Changes

@@ -0,0 +1,4 @@
+Revision history for Perl extension Perl::Metrics::Lite
+
+0.01 Mon Dec 19 20:20:12 2011
+	* original version

MANIFEST.SKIP

@@ -0,0 +1,21 @@
+\bRCS\b
+\bCVS\b
+^MANIFEST\.
+^Makefile$
+~$
+^#
+\.old$
+^blib/
+^pm_to_blib
+^MakeMaker-\d
+\.gz$
+\.cvsignore
+^t/9\d_.*\.t
+^t/perlcritic
+^xt/
+^tools/
+\.svn/
+\.git/
+^[^/]+\.yaml$
+^[^/]+\.pl$
+^\.shipit$

Makefile.PL

@@ -0,0 +1,33 @@
+sub readme_markdown_from  {
+   warn "You need to install Module::Install::ReadmeMarkdownFromPod  to generate README";
+}
+
+sub author_requires {
+    warn
+        "You need to install Module::Install::AuthorRequires to install modules author requires";
+}
+sub author_tests        { }
+sub auto_set_repository { }
+
+use inc::Module::Install;
+
+name 'Perl-Metrics-Lite';
+all_from 'lib/Perl/Metrics/Lite.pm';
+readme_markdown_from 'lib/Perl/Metrics/Lite.pm';
+
+requires(
+    'Carp'                      => 0,
+    'File::Basename'            => 0,
+    'File::Find'                => 1.01,
+    'File::Spec'                => 0,
+    'IO::File'                  => 1.14,
+    'Readonly'                  => 1.03,
+    'PPI'                       => 1.113,
+    'Statistics::Basic::StdDev' => 0,
+    'Statistics::Basic::Mean'   => 0,
+    'Statistics::Basic::Median' => 0,
+    'Pod::Usage'                => 0,
+);
+test_requires( 'Test::LoadAllModules' => 0.03 );
+auto_include;
+WriteAll;

README.mkdn

@@ -0,0 +1,36 @@
+# NAME
+
+Perl::Metrics::Lite -
+
+# SYNOPSIS
+
+    use Perl::Metrics::Lite;
+
+# DESCRIPTION
+
+Perl::Metrics::Lite is
+
+
+
+# SOURCE AVAILABILITY
+
+This source is in Github:
+
+    http://github.com/dann/
+
+# CONTRIBUTORS
+
+Many thanks to:
+
+
+
+# AUTHOR
+
+Dann <techmemo@gmail.com>
+
+# SEE ALSO
+
+# LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.

lib/Perl/Metrics/Lite.pm

@@ -0,0 +1,151 @@
+package Perl::Metrics::Lite;
+use strict;
+use warnings;
+
+use Carp qw(cluck confess);
+use English qw(-no_match_vars);
+use File::Basename qw(fileparse);
+use File::Find qw(find);
+use IO::File;
+use PPI;
+use Perl::Metrics::Lite::Analysis;
+use Perl::Metrics::Lite::Analysis::File;
+use Readonly;
+
+our $VERSION = '0.01';
+
+Readonly::Scalar our $PERL_FILE_SUFFIXES => qr{ \. (:? pl | pm | t ) }sxmi;
+Readonly::Scalar our $SKIP_LIST_REGEX =>
+    qr{ \.svn | \. git | _darcs | CVS }sxmi;
+Readonly::Scalar my $PERL_SHEBANG_REGEX => qr/ \A [#] ! .* perl /sxm;
+Readonly::Scalar my $DOT_FILE_REGEX     => qr/ \A [.] /sxm;
+
+sub new {
+    my ($class) = @_;
+    my $self = {};
+    bless $self, $class;
+    return $self;
+}
+
+sub analyze_files {
+    my ( $self, @dirs_and_files ) = @_;
+    my @results = ();
+    my @objects = grep { ref $_ } @dirs_and_files;
+    @dirs_and_files = grep { not ref $_ } @dirs_and_files;
+    foreach my $file (
+        (   scalar(@dirs_and_files)
+            ? @{ $self->find_files(@dirs_and_files) }
+            : ()
+        ),
+        @objects
+        )
+    {
+        my $file_analysis
+            = Perl::Metrics::Lite::Analysis::File->new( path => $file );
+        push @results, $file_analysis;
+    }
+    my $analysis = Perl::Metrics::Lite::Analysis->new( \@results );
+    return $analysis;
+}
+
+sub find_files {
+    my ( $self, @directories_and_files ) = @_;
+    foreach my $path (@directories_and_files) {
+        if ( !-r $path ) {
+            confess "Path '$path' is not readable!";
+        }
+    }
+    my @found = $self->list_perl_files(@directories_and_files);
+    return \@found;
+}
+
+sub list_perl_files {
+    my ( $self, @paths ) = @_;
+    my @files;
+
+    my $wanted = sub {
+        return if $self->should_be_skipped($File::Find::name);
+        if ( $self->is_perl_file($File::Find::name) ) {
+            push @files, $File::Find::name; ## no critic (ProhibitPackageVars)
+        }
+    };
+
+    File::Find::find( { wanted => $wanted, no_chdir => 1 }, @paths );
+
+    my @sorted_list = sort @files;
+    return @sorted_list;
+}
+
+sub should_be_skipped {
+    my ( $self, $fullpath ) = @_;
+    my ( $name, $path, $suffix ) = File::Basename::fileparse($fullpath);
+    return $path =~ $SKIP_LIST_REGEX;
+}
+
+sub is_perl_file {
+    my ( $self, $path ) = @_;
+    return if ( !-f $path );
+    my ( $name, $path_part, $suffix )
+        = File::Basename::fileparse( $path, $PERL_FILE_SUFFIXES );
+    return if $name =~ $DOT_FILE_REGEX;
+    if ( length $suffix ) {
+        return 1;
+    }
+    return _has_perl_shebang($path);
+}
+
+sub _has_perl_shebang {
+    my $path = shift;
+
+    my $fh = IO::File->new( $path, '<' );
+    if ( !-r $fh ) {
+        cluck "Could not open '$path' for reading: $OS_ERROR";
+        return;
+    }
+    my $first_line = <$fh>;
+    $fh->close();
+    return if ( !$first_line );
+    return $first_line =~ $PERL_SHEBANG_REGEX;
+}
+
+1;
+
+__END__
+
+=encoding utf-8
+
+=head1 NAME
+
+Perl::Metrics::Lite - Pluggable Perl Code Metrics System
+
+=head1 SYNOPSIS
+
+  use Perl::Metrics::Lite;
+
+=head1 DESCRIPTION
+
+Perl::Metrics::Lite is
+
+=head1 SOURCE AVAILABILITY
+
+This source is in Github:
+
+  http://github.com/dann/p5-perl-metrics-lite
+
+=head1 CONTRIBUTORS
+
+Many thanks to:
+
+
+=head1 AUTHOR
+
+Dann E<lt>techmemo{at}gmail.comE<gt>
+
+=head1 SEE ALSO
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut