File Coverage

File:blib/lib/Mediawiki/Blame/Line.pm
Coverage:100.0%

linestmtbrancondsubpodtimecode
1package Mediawiki::Blame::Line;
2# $Revision: 8 $
3# $Date: 2007-08-01 15:01:36 +0200 (Mi, 01 Aug 2007) $
4
8
8
8
124
34
19
use 5.008;
5
8
8
8
54
18
55
use utf8;
6
8
8
8
55
18
64
use strict;
7
8
8
8
55
17
66
use warnings;
8
8
8
8
54
17
52
use Class::Spiffy qw(-base field);
9
8
8
8
63
17
29
use Perl::Version qw(); our $VERSION = Perl::Version->new('0.0.2')->stringify;
10
11my @field_names = qw(r_id timestamp contributor text);
12for my $field_name (@field_names) {
13    field $field_name;
14};
15
16sub _new {
17
27
63
    my $class = shift;
18
27
74
    my $self = {};
19
27
130
    bless $self, $class;
20
21
27
105
    $self->r_id(shift);
22
27
97
    $self->timestamp(shift);
23
27
101
    $self->contributor(shift);
24
27
98
    $self->text(shift);
25
26
27
295
    return $self;
27};
28
291;
30