File Coverage

blib/lib/App/GUI/Notepad.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 App::GUI::Notepad;
2              
3 3     3   100174 use 5.005;
  3         12  
  3         132  
4 3     3   18 use strict;
  3         6  
  3         117  
5 3     3   9577 use Data::Dumper;
  3         32988  
  3         226  
6 3     3   4833 use Wx;
  0            
  0            
7             use base qw/Wx::App/;
8             use App::GUI::Notepad::Frame;
9              
10             use vars qw{$VERSION};
11             BEGIN {
12             $VERSION = '0.03';
13             }
14              
15             sub OnInit {
16             my ($this) = @_;
17              
18             Wx::InitAllImageHandlers();
19             my ($frame) = App::GUI::Notepad::Frame->new(
20             "Perlpad",
21             Wx::Point->new( 50, 50 ),
22             Wx::Size->new( 450, 350 )
23             );
24             $this->{frame} = $frame;
25              
26             $this->SetTopWindow($frame);
27             $frame->Show(1);
28              
29             $this;
30             }
31              
32             1;
33              
34             =pod
35              
36             =head1 NAME
37              
38             App::GUI::Notepad - A wxPerl-based notepad text editor application
39              
40             =head1 DESCRIPTION
41              
42             This package implements a wxWindows desktop application which provides the
43             ability to do rudimentary text file editing.
44              
45             The C module implements the application, but is itself of no
46             use to the user. The launcher for the application 'perlpad' is installed
47             with this module, and can be launched by simply typing the following from
48             the command line.
49              
50             perlpad
51              
52             When launched, the application looks and acts like a very simple rendition of
53             Notepad from Windows. Currently you can create new files and save files and
54             perform the usual edit functions (Undo, Redo, Cut, Copy and Paste)
55              
56             ( It's early days yet for this application ).
57              
58             =head1 TO DO
59              
60             - Add the typical features found in most editors these days.
61              
62              
63             =head1 SUPPORT
64              
65             Bugs should B be submitted via the CPAN bug tracker, located at
66              
67             L
68              
69             For general comments, contact the author.
70              
71              
72             =head1 AUTHOR
73              
74             Ben Marsh Eblm@woodheap.orgE
75              
76             Created with the valuable assistance of Adam Kennedy Ecpan@aliasE
77              
78              
79             =head1 SEE ALSO
80              
81             L, L
82              
83             =head1 COPYRIGHT
84              
85             Copyright (c) 2005 Ben Marsh, Adam Kennedy. All rights reserved.
86              
87             This program is free software; you can redistribute
88             it and/or modify it under the same terms as Perl itself.
89              
90             The full text of the license can be found in the
91             LICENSE file included with this module.
92              
93             =cut
94