File Coverage

blib/lib/App/bif/show/version.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	4	12	33.3
condition	1	3	33.3
subroutine	7	7	100.0
pod	1	1	100.0
total	46	57	80.7

package App::bif::show::version;
use strict;
use warnings;
use App::bif::Build;
use Bif::Mo;
use Config;
use Path::Tiny;

our $VERSION = '0.1.5_5';
extends 'App::bif';

sub run {
    my $self = shift;
    my $opts = $self->opts;

    # Taken directly from perlvar(1)
    my $this_perl = $^X;
    if ( $^O ne 'VMS' ) {
        $this_perl .= $Config{_exe}
          unless $this_perl =~ m/$Config{_exe}$/i;
    }

    my ( $bold, $reset ) = $self->colours( 'bold', 'reset' );

    my @data = (
        [ $bold . 'Host' . $reset, '' ],
        [ 'archname:',             $Config{archname} ],
        [ 'osname:',               $Config{osname} ],
        [
            'perl:',
            sprintf( '%s (%d.%d.%d)',
                $this_perl,           $Config{api_revision},
                $Config{api_version}, $Config{api_subversion} )
        ],
        [ '-',                             '' ],
        [ $bold . 'Software' . $reset,     '' ],
        [ 'built:',                        $App::bif::Build::DATE ],
        [ 'commit:',                       $App::bif::Build::COMMIT ],
        [ 'version:',                      $App::bif::Build::VERSION ],
        [ '-',                             '' ],
        [ $bold . 'Installation' . $reset, '' ],
        [ 'bin:',                          path($0)->absolute ]
    );

    push( @data, [ 'lib:', path($App::bif::Build::FILE)->parent(3) ] )
      unless defined &static::find;

    my $repo      = eval { $self->repo };
    my $user_repo = eval { $self->user_repo };

    if ( $repo or $user_repo ) {
        push( @data,
            [ '-',                             '' ],
            [ $bold . 'Repositories' . $reset, '' ],
            [ 'current:',                      $repo ? $repo : '(not found)' ],
            [ 'user:', $user_repo ? $user_repo : '(not found)' ],
        );
    }

    print $self->render_table( ' l  l ', undef, \@data );

    return $self->ok('ShowVersion');
}

1;
__END__