File: | blib/lib/Mediawiki/Blame/Line.pm |
Coverage: | 100.0% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package 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 | |||||||
11 | my @field_names = qw(r_id timestamp contributor text); | ||||||
12 | for my $field_name (@field_names) { | ||||||
13 | field $field_name; | ||||||
14 | }; | ||||||
15 | |||||||
16 | sub _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 | |||||||
29 | 1; | ||||||
30 |