view release on metacpan or  search on metacpan

bin/codestat  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;

package codestat;
$codestat::VERSION = '1.190680';
# ABSTRACT: gather code statistics on the command line

use Code::Statistics::App;

local @ARGV = qw( commands ) if !@ARGV;    # make sure it prints the global options by default

Code::Statistics::App->run;

__END__

=pod

=encoding UTF-8

=head1 NAME

t/lib/ShellTest.pm  view on Meta::CPAN

        --conf_file=data/config/shelltestrc
        --global_conf_file=data/config/does_not_exist
    ) ];

    return;
}

sub basic_collect : TestGroup {
    my ( $self ) = @_;

    local @ARGV = @{ $self->{basic_collect_args} };

    $self->check_codestat_shell_app_against( "data/json/basic_collect.json" );

    ok( -e 'codestat.out', 'output file is generated' );

    ok_regression(
        sub { $self->get_codestat_out_file },
        "data/json/basic_collect.json",
        'dumped file matches expected output'
    );

t/lib/ShellTest.pm  view on Meta::CPAN

    $self->check_codestat_shell_app_against( "data/json/basic_report.json" );

    unlink( 'codestat.out' );

    return;
}

sub nodump_collect : TestGroup {
    my ( $self ) = @_;

    local @ARGV = (
        @{$self->{basic_collect_args}},
        qw( --no_dump )
    );

    $self->check_codestat_shell_app_against( "data/json/basic_collect.json" );

    ok( !-e 'codestat.out', '--no_dump does not generate a file' );

    return;
}