File Coverage

blib/lib/FBP/Demo.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 16 87.5


line stmt bran cond sub pod time code
1             package FBP::Demo;
2              
3 2     2   30721 use 5.008;
  2         7  
  2         77  
4 2     2   11 use strict;
  2         3  
  2         62  
5 2     2   19 use warnings;
  2         4  
  2         76  
6 2     2   2187 use Wx 0.98 ':everything';
  0            
  0            
7              
8             our $VERSION = '0.03';
9             our @ISA = 'Wx::App';
10              
11             sub run {
12             shift->new(@_)->MainLoop;
13             }
14              
15             sub OnInit {
16             my $self = shift;
17              
18             # Create the primary frame
19             require FBP::Demo::Frame::Main;
20             $self->SetTopWindow( FBP::Demo::Frame::Main->new );
21              
22             # Don't flash frames on the screen in tests
23             unless ( $ENV{HARNESS_ACTIVE} ) {
24             $self->GetTopWindow->Show(1);
25             }
26              
27             return 1;
28             }
29              
30             1;
31              
32             __END__