File Coverage

blib/lib/Salvation/TC/Meta.pm
Criterion Covered Total %
statement 11 11 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 4 4 100.0
pod 2 2 100.0
total 19 22 86.3


line stmt bran cond sub pod time code
1             package Salvation::TC::Meta;
2              
3             =head1 NAME
4              
5             Salvation::TC::Meta - Базовый класс для классов внутри Salvation::TC
6              
7             =cut
8              
9 4     4   20 use strict;
  4         4  
  4         121  
10 4     4   13 use warnings;
  4         5  
  4         382  
11              
12             =head1 METHODS
13              
14             =cut
15              
16             =head2 new()
17              
18             =cut
19              
20             sub new {
21              
22 181     181 1 459 my ( $proto, %args ) = @_;
23              
24 181 50       336 die( 'Metaclass must have a name' ) unless( defined $args{ 'name' } );
25              
26 181   33     1866 return bless( \%args, ( ref( $proto ) || $proto ) );
27             }
28              
29             =head2 name()
30              
31             =cut
32              
33             sub name {
34              
35 241     241 1 226 my ( $self ) = @_;
36              
37 241         981 return $self -> { 'name' };
38             }
39              
40             1;
41              
42             __END__