File Coverage

blib/lib/Net/BGP/ASPath/AS_CONFED_SET.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 5 7 71.4
pod 0 5 0.0
total 14 24 58.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package Net::BGP::ASPath::AS_CONFED_SET;
4              
5 7     7   3014 use Net::BGP::ASPath::AS_SET;
  7         19  
  7         220  
6              
7 7     7   46 use strict;
  7         16  
  7         999  
8              
9             ## Inheritance and Versioning ##
10              
11             @Net::BGP::ASPath::AS_CONFED_SET::ISA = qw( Net::BGP::ASPath::AS_SET );
12             our $VERSION = '0.18';
13              
14             sub type {
15 3     3 0 9 return 4;
16             }
17              
18             sub length {
19 19     19 0 36 return 0;
20             }
21              
22 0     0 0 0 sub asstring { as_string(@_) }
23              
24             sub as_string {
25 64     64 0 141 return '(' . shift->SUPER::as_string . ')';
26             }
27              
28             sub count {
29 0     0 0   my $self = shift;
30              
31 0           return scalar($self->SUPER::count);
32             }
33              
34             1;
35