File Coverage

blib/lib/Brackup/TargetBackupStatInfo.pm

Criterion	Covered	Total	%
statement	17	21	80.9
branch	1	2	50.0
condition			n/a
subroutine	6	10	60.0
pod	0	6	0.0
total	24	39	61.5

package Brackup::TargetBackupStatInfo;

use strict;
use warnings;
use Carp qw(croak);
use POSIX qw(strftime);

sub new {
    my ($class, $target, $fn, %opts) = @_;
    my $self = {
        target => $target,
        filename => $fn,
        time => delete $opts{time},
        size => delete $opts{size},
    };
    croak "unknown options: " . join(", ", keys %opts) if %opts;

    return bless $self, $class;
}

sub target {
    return $_[0]->{target};
}

sub filename {
    return $_[0]->{filename};
}

sub time {
    return $_[0]->{time};
}

sub localtime {
    return strftime("%a %d %b %Y %T", localtime( $_[0]->{time} ));
}

sub size {
    return $_[0]->{size};
}


1;