File Coverage

blib/lib/Net/SinFP3/Ext/SP.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: SP.pm,v 451c3602d7b2 2015/11/25 06:13:53 gomor $
3             #
4             package Net::SinFP3::Ext::SP;
5 1     1   892 use strict;
  1         2  
  1         27  
6 1     1   6 use warnings;
  1         2  
  1         26  
7              
8 1     1   6 use base qw(Class::Gomor::Array);
  1         2  
  1         416  
9             our @AS = qw(
10             F
11             W
12             O
13             M
14             S
15             L
16             );
17             __PACKAGE__->cgBuildIndices;
18             __PACKAGE__->cgBuildAccessorsScalar(\@AS);
19              
20             sub new {
21 0     0 1   my $self = shift->SUPER::new(
22             F => 'F0',
23             W => 'W0',
24             O => 'O0',
25             M => 'M0',
26             S => 'S0',
27             L => 'L0',
28             @_,
29             );
30              
31 0           return $self;
32             }
33              
34             sub print {
35 0     0 0   my $self = shift;
36              
37 0           my $buf = $self->F.' '.$self->W.' '.$self->O.' '.$self->M.' '.
38             $self->S.' '.$self->L;
39              
40 0           return $buf;
41             }
42              
43             1;
44              
45             __END__