File Coverage

blib/lib/SVK/Log/Filter/Mndrix.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package SVK::Log::Filter::Mndrix;

use warnings;
use strict;

use base qw( SVK::Log::Filter::Output );
use Perl6::Form;
use Text::Autoformat;
use Time::Local qw( timegm );
use POSIX qw( strftime );
use Term::ReadKey;

our $VERSION = '0.0.3';

sub revision {
    my ($self, $args) = @_;
    my $props = $args->{props};
    my $rev = $args->{rev};
    my $stash = $args->{stash};

    my $author  = $props->{'svn:author'} || '(none)';
    my $message = $props->{'svn:log'};
    $message = q{} if !defined $message;
    my $columns = $stash->{quiet}
                ? $ENV{COLUMNS} || (GetTerminalSize())[0] || 80
                : 80
                ;

    # clean up messages with SVK lump headers
    if ( $message =~ s{\A \s* r\d+ [@] .*? $ \s* }{}xms ) {
        $message =~ s/^ \s //xmsg;
    }
    my ($first, $rest) = split /\n\n+/, $message, 2;
    $message = autoformat(
        $first || q{},
        {
            left   => 0,
            right  => $columns - 28,
        }
    );
    $message .= $rest if $stash->{verbose} and $rest;

    my ($day, $date, $time) = date_and_time(
        $props->{'svn:date'},
        $stash->{quiet} ? '-' : ' ',
    );

    # determine the formats for the log message
    my $quiet_format  = '{' . q{'}x($columns-28) . '}';

    # handle the quiet form
    print form
        # r    author   date        log message
        "{<<<} {<<<<<<} {<<<<<<<<<} $quiet_format",
         $rev, $author,$date,      $message
    if $stash->{quiet};
    return if $stash->{quiet};

    # handle the other form
    my $get_remote_rev = $args->{get_remoterev} || sub {};
    my $remote_rev = $get_remote_rev->($rev) || 'no';
    $message = ' ' if !defined($message) or !length($message);
    print form
        '-----------------------------[ Revision : {>>>>} ]-----------------------------',
                                                   $rev,
        'Author: {<<<<<<}    Log:',
                  $author,
        "Day   : {<<<<<<<}      {''''''''''''''''''''''''''''''''''''''''''''''''''''''''}",
                  $day,          $message,
        'Date  : {<<<<<<<<<}    {VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV}',
                  $date,
        'Time  : {<<<<<<}       {VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV}',
                  $time,
        'Remote: {<<<<}         {VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV}',
                 $remote_rev,
        '                       {VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV}',
    ;

}

sub date_and_time {
    my ($raw, $s) = @_;

    my (
        $year,
        $month,
        $d,
        $hour,
        $minute,
        $second,
        $nanos
    ) = split /[-T:.]/, $raw;
    $year -= 1900;
    $month--;

    my $t = timegm($second, $minute, $hour, $d, $month, $year);
    my $day  = strftime('%A',            localtime($t) );
    my $time = strftime('%T',            localtime($t) );
    my $date = strftime("\%e$s\%b$s\%Y", localtime($t) );

    return ($day, $date, $time);
}

1;

__END__