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   16 use strict;
  4         4  
  4         99  
10 4     4   12 use warnings;
  4         3  
  4         297  
11              
12             =head1 METHODS
13              
14             =cut
15              
16             =head2 new()
17              
18             =cut
19              
20             sub new {
21              
22 178     178 1 372 my ( $proto, %args ) = @_;
23              
24 178 50       278 die( 'Metaclass must have a name' ) unless( defined $args{ 'name' } );
25              
26 178   33     1577 return bless( \%args, ( ref( $proto ) || $proto ) );
27             }
28              
29             =head2 name()
30              
31             =cut
32              
33             sub name {
34              
35 238     238 1 192 my ( $self ) = @_;
36              
37 238         807 return $self -> { 'name' };
38             }
39              
40             1;
41              
42             __END__