File Coverage

blib/lib/FBP/Sizer.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package FBP::Sizer;
2              
3             =pod
4              
5             =head1 NAME
6              
7             FBP::Sizer - Base class for all sizers
8              
9             =head1 DESCRIPTION
10              
11             B is the base class for a sizer objects in L.
12              
13             =head1 METHODS
14              
15             =cut
16              
17 4     4   2144 use Mouse;
  4         7  
  4         22  
18              
19             our $VERSION = '0.41';
20              
21             extends 'FBP::Object';
22             with 'FBP::Children';
23              
24             =pod
25              
26             =head2 name
27              
28             The C accessor provides the logical name of the sizer. This must be
29             named uniquely within each top level wxFormBuilder object, and is a required
30             field.
31              
32             Returns the name as a string.
33              
34             =cut
35              
36             # Not part of the Wx model, instead was added by FormBuilder
37             has name => (
38             is => 'ro',
39             isa => 'Str',
40             required => 1,
41             );
42              
43             =pod
44              
45             =head2 minimum_size
46              
47             The C method returns a comma-separated pair of integers
48             representing the minimum size for the window, or a zero-length string
49             if no minimum size is defined for the sizer.
50              
51             =cut
52              
53             has minimum_size => (
54             is => 'ro',
55             isa => 'Str',
56             );
57              
58 4     4   1387 no Mouse;
  4         7  
  4         51  
59             __PACKAGE__->meta->make_immutable;
60              
61             1;
62              
63             =pod
64              
65             =head1 SUPPORT
66              
67             Bugs should be reported via the CPAN bug tracker at
68              
69             L
70              
71             For other issues, or commercial enhancement or support, contact the author.
72              
73             =head1 AUTHOR
74              
75             Adam Kennedy Eadamk@cpan.orgE
76              
77             =head1 COPYRIGHT
78              
79             Copyright 2009 - 2012 Adam Kennedy.
80              
81             This program is free software; you can redistribute
82             it and/or modify it under the same terms as Perl itself.
83              
84             The full text of the license can be found in the
85             LICENSE file included with this module.
86              
87             =cut