File Coverage

blib/lib/Graph/MoreUtils/Line/SelfLoopVertex.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 11 12 91.6


line stmt bran cond sub pod time code
1             package Graph::MoreUtils::Line::SelfLoopVertex;
2              
3 9     9   81 use strict;
  9         29  
  9         419  
4 9     9   53 use warnings;
  9         17  
  9         1442  
5              
6             # ABSTRACT: Marker for artificial self-loops
7             our $VERSION = '0.3.0'; # VERSION
8              
9             sub new
10             {
11 2     2 0 233 my( $class ) = @_;
12 2         81 return bless {}, $class;
13             }
14              
15             1;
16              
17             __END__