File Coverage

blib/lib/Sslscan/Parser/Host/Port.pm
Criterion Covered Total %
statement 3 7 42.8
branch n/a
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 10 40.0


line stmt bran cond sub pod time code
1             # $Id: Port.pm 134 2009-10-16 18:21:38Z jabra $
2             package Sslscan::Parser::Host::Port;
3             {
4             our $VERSION = '0.01';
5             $VERSION = eval $VERSION;
6              
7 1     1   1893 use Object::InsideOut;
  1         4  
  1         12  
8              
9             my @port : Field : Arg(port) : Get(port);
10             my @ciphers : Field : Arg(ciphers) : Get(ciphers) : Type(List(Sslscan::Parser::Host::Port::Cipher));
11              
12             sub get_all_ciphers {
13 0     0 0   my ($self) = @_;
14 0           my @ciphers = @{ $self->ciphers };
  0            
15 0           return @ciphers;
16             }
17            
18             }
19             1;