File Coverage

blib/lib/App/GitGrepPerlStatement.pm

Criterion	Covered	Total	%
statement	15	39	38.4
branch	0	4	0.0
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	20	52	38.4

package App::GitGrepPerlStatement;
use 5.008001;
use strict;
use warnings;
use App::GitGrepPerlStatement::StatementFinder;
use Term::ANSIColor qw(colored);

our $VERSION = "0.05";

sub say ($) {
    my ($message) = @_;
    print $message . "\n";
}

sub run {
    my ($class, @argv) = @_;

    my $word = (@argv)[0];

    unless (defined $word) {
        say "USAGE: git grep-per-statement  ";
        exit 1;
    }

    my @files = split "\n", `git grep --name-only --cached --word-regexp @{[ join ' ', map { quotemeta($_) } @argv ]}`;

    my $finder = App::GitGrepPerlStatement::StatementFinder->new($word);

    for my $file (@files) {
        my @found = $finder->search($file);

        for (@found) {
            if (-t STDOUT) {
                say colored(
                    ['bold'],
                    "@{[ $file ]}:@{[ $_->line_number ]}"
                );
                say $finder->highlight($_);
            } else {
                say "@{[ $file ]}:@{[ $_->line_number ]}";
                say $_;
            }
        }
        $finder->flush;
    }

}

__END__