File Coverage

blib/lib/PlantUML/ClassDiagram/Class/Variable.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 23 25 92.0


line stmt bran cond sub pod time code
1             package PlantUML::ClassDiagram::Class::Variable;
2              
3 4     4   14469 use strict;
  4         5  
  4         112  
4 4     4   15 use warnings;
  4         5  
  4         94  
5 4     4   13 use utf8;
  4         3  
  4         14  
6              
7 4     4   434 use parent qw/PlantUML::ClassDiagram::Class::Base/;
  4         223  
  4         17  
8             __PACKAGE__->follow_best_practice;
9              
10             my @self_valiables = qw/
11             name
12             attribute
13             /;
14             __PACKAGE__->mk_ro_accessors(@self_valiables);
15              
16             sub build {
17 22     22 0 651 my ($class, $string) = @_;
18              
19 22         56 my ($name) = $string =~ /(\w+)/;
20 22         25 my ($attribute) = $string =~ /\{(\w+)\}/;
21              
22 22         63 return $class->new($name, $attribute);
23             }
24              
25 20     20 0 48 sub is_variable { 1 }
26              
27             1;