File Coverage

blib/lib/FBP/Project.pm
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             package FBP::Project;
2              
3 4     4   21 use Mouse;
  4         6  
  4         29  
4              
5             our $VERSION = '0.41';
6              
7             extends 'FBP::Object';
8             with 'FBP::Children';
9              
10             has name => (
11             is => 'ro',
12             isa => 'Str',
13             );
14              
15             has relative_path => (
16             is => 'ro',
17             isa => 'Bool',
18             );
19              
20             has internationalize => (
21             is => 'ro',
22             isa => 'Bool',
23             );
24              
25             has encoding => (
26             is => 'ro',
27             isa => 'Str',
28             );
29              
30             has namespace => (
31             is => 'ro',
32             isa => 'Str',
33             );
34              
35 4     4   1715 no Mouse;
  4         9  
  4         22  
36             __PACKAGE__->meta->make_immutable;
37              
38              
39              
40              
41              
42             ######################################################################
43             # Convenience Methods
44              
45             sub forms {
46 9 50       386 return grep {
47 3         18 Params::Util::_INSTANCE($_, 'FBP::Window')
48             and
49             $_->does('FBP::Form')
50 3     3 0 9 } @{$_[0]->children};
51             }
52              
53             sub dialogs {
54 3         36 return grep {
55 1         6 Params::Util::_INSTANCE($_, 'FBP::Dialog')
56 1     1 0 3 } @{$_[0]->children};
57             }
58              
59             1;