File Coverage

blib/lib/Mediawiki/Blame/Revision.pm

Criterion	Covered	Total	%
statement	15	23	65.2
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	20	29	68.9

package Mediawiki::Blame::Revision;
use 5.008;
use utf8;
use strict;
use warnings;
use Class::Spiffy qw(-base field);
our $VERSION = '0.0.3';

my @field_names = qw(r_id timestamp contributor text);
for my $field_name (@field_names) {
    field $field_name;
};

sub _new {
    my $class = shift;
    my $self = {};
    bless $self, $class;

    $self->r_id(shift);
    $self->timestamp(shift);
    $self->contributor(shift);
    $self->text(shift);

    return $self;
};

1;

__END__