File Coverage

blib/lib/Net/SinFP3/Ext/S.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 1 2 50.0
total 13 21 61.9


line stmt bran cond sub pod time code
1             #
2             # $Id: S.pm 2234 2014-04-08 13:05:14Z gomor $
3             #
4             package Net::SinFP3::Ext::S;
5 1     1   813 use strict;
  1         1  
  1         44  
6 1     1   5 use warnings;
  1         2  
  1         40  
7              
8 1     1   7 use base qw(Class::Gomor::Array);
  1         1  
  1         343  
9             our @AS = qw(
10             B
11             F
12             W
13             O
14             M
15             S
16             L
17             );
18             __PACKAGE__->cgBuildIndices;
19             __PACKAGE__->cgBuildAccessorsScalar(\@AS);
20              
21             sub new {
22 0     0 1   my $self = shift->SUPER::new(
23             B => 'B00000',
24             F => 'F0',
25             W => 'W0',
26             O => 'O0',
27             M => 'M0',
28             S => 'S0',
29             L => 'L0',
30             @_,
31             );
32              
33 0           return $self;
34             }
35              
36             sub print {
37 0     0 0   my $self = shift;
38              
39 0           my $buf = $self->B.' '.$self->F.' '.$self->W.' '.$self->O.' '.$self->M.' '.
40             $self->S.' '.$self->L;
41              
42 0           return $buf;
43             }
44              
45             1;
46              
47             __END__