File Coverage

blib/lib/Wx/App/AnnualCal.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Wx::App::AnnualCal;

use strict;
use warnings;

use Wx 0.990 qw(:frame);
use base qw(Wx::App);

use lib qw(../../../lib);
use Wx::App::AnnualCal::MyFrame;

my $VERSION = 0.92;

          ##################################################

sub OnInit
  {
  my $frame = Wx::App::AnnualCal::MyFrame->new
    (
     undef,                                 # parent window
     -1,                                    # default id value
     'Annual Calendar',                     # title
     [-1,-1],                               # default position
     [-1,-1],                               # default size
     wxDEFAULT_FRAME_STYLE,                 # frame style
    );
  $frame->build();                          # creates calendar
  $frame->Center(wxBOTH);                   # center frame on screen
  $frame->Show(1);                          # displays calendar

  return(1);
  }

# * * *
#
#  Input for Dist::Zilla::Pod::Weaver plugin to create POD documentation.
#
# * * *

#ABSTRACT: the main module of the AnnualCal distribution


1;


__END__