File Coverage

blib/lib/R/Writer/Range.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 19 73.6


line stmt bran cond sub pod time code
1             # $Id: /mirror/coderepos/lang/perl/R-Writer/trunk/lib/R/Writer/Range.pm 43085 2008-03-01T12:28:42.888222Z daisuke $
2             #
3             # Copyright (c) 2008 DAisuke Maki
4             # All rights reserved.
5              
6             package R::Writer::Range;
7 6     6   34 use strict;
  6         13  
  6         216  
8 6     6   89 use warnings;
  6         11  
  6         189  
9 6     6   32 use base qw(Class::Accessor::Fast);
  6         13  
  6         1123  
10              
11             __PACKAGE__->mk_accessors($_) for qw(start end);
12              
13 0     0 1   sub new { shift->SUPER::new({ start => $_[0], end => $_[1] }) }
14              
15             sub as_string
16             {
17 0     0 1   my $self = shift;
18 0           return join(":", $self->start, $self->end);
19             }
20              
21             1;
22              
23             __END__