File Coverage

blib/lib/App/Critique/Plugin/UI.pm

Criterion	Covered	Total	%
statement	30	46	65.2
branch			n/a
condition	1	2	50.0
subroutine	11	19	57.8
pod	0	6	0.0
total	42	73	57.5

package App::Critique::Plugin::UI;

use strict;
use warnings;

our $VERSION   = '0.05';
our $AUTHORITY = 'cpan:STEVAN';

use Term::ReadKey  ();
use Number::Format ();

sub TERM_WIDTH () {
    my $size = eval {
        local $SIG{__WARN__} = sub {''};
        ( Term::ReadKey::GetTerminalSize() )[0];
    } || 80;

    return $size;
}

use constant HR_ERROR => ( '== ERROR ' . ( '=' x ( TERM_WIDTH - 9 ) ) );
use constant HR_DARK  => ( '=' x TERM_WIDTH );
use constant HR_LIGHT => ( '-' x TERM_WIDTH );

use App::Critique -ignore;

use App::Cmd::Setup -plugin => {
    exports => [qw[
        TERM_WIDTH

        HR_ERROR
        HR_DARK
        HR_LIGHT

        info
        warning
        error

        format_number
        format_bytes
    ]]
};

sub info    { my ($plugin, $cmd, @args) = @_;    _info( @args ) }
sub warning { my ($plugin, $cmd, @args) = @_; _warning( @args ) }
sub error   { my ($plugin, $cmd, @args) = @_;   _error( @args ) }

sub format_number {
    my ($plugin, $cmd, @args) = @_;
    Number::Format::format_number( @args );
}

sub format_bytes {
    my ($plugin, $cmd, @args) = @_;
    Number::Format::format_bytes( @args );
}

# the real stuff

sub _info {
    my ($msg, @args) = @_;
    print((sprintf $msg, @args), "\n");
}

sub _warning {
    my ($msg, @args) = @_;

    # NOTE:
    # I had a timestamp here, but it didn't
    # really help any with the readability,
    # so I took it out, just in case I want
    # it back. I am leaving it here so I
    # don't need to work this out again.
    # - SL
    # my @time = (localtime)[ 2, 1, 0, 4, 3, 5 ];
    # $time[-1] += 1900;
    # sprintf '%02d:%02d:%02d-%02d/%02d/%d', @time;

    warn((sprintf $msg, @args),"\n");
}

sub _error {
    my ($msg, @args) = @_;
    die(HR_ERROR,"\n",(sprintf $msg, @args),"\n",HR_DARK,"\n");
}

1;

=pod

=head1 NAME

App::Critique::Plugin::UI - UI elements for App::Critique

=head1 VERSION

version 0.05

=head1 DESCRIPTION

Just a simple L<App::Cmd::Plugin> to handle UI elements, nothing
really useful in here.

=head1 AUTHOR

Stevan Little <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2016 by Stevan Little.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

__END__

# ABSTRACT: UI elements for App::Critique