1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
# You may distribute under the terms of either the GNU General Public License
# or the Artistic License (the same terms as Perl itself)
#
# (C) Paul Evans, 2012-2020 -- leonerd@leonerd.org.uk
package Tickit::Widgets 0.42;
use v5.14;
use warnings;
=head1 NAME
C<Tickit::Widgets> - load several L<Tickit::Widget> classes at once
=head1 SYNOPSIS
use Tickit::Widgets qw( Static VBox HBox );
Equivalent to
use Tickit::Widget::Static;
use Tickit::Widget::VBox;
use Tickit::Widget::HBox;
=head1 DESCRIPTION
This module provides an C<import> utility to simplify code that uses many
different L<Tickit::Widget> subclasses. Instead of a C<use> line per module,
you can simply C<use> this module and pass it the base name of each class.
It will C<require> each of the modules.
Note that because each Widget module should be a pure object class with no
exports, this utility does not run the C<import> method of the used classes.
An optional version check may be supplied using a C<=> sign:
use Tickit::Widgets qw( HBox=0.48 VBox=0.48 );
=cut
sub import
{
shift; # class
# Only need to 'require' the modules because they're all clean object
# classes, no need to import any of them
foreach ( @_ ) {
my $class = $_; # $_ is alias to read-only values;
local $_; # placate bug in Tickit::RenderContext 0.06
my $version;
$class =~ s/=(\d+\.\d+)$// and $version = $1;
$class = "Tickit::Widget::$class" unless $class =~ m/::/;
( my $file = "$class.pm" ) =~ s{::}{/}g;
require $file;
if( defined $version ) {
$class->VERSION( $version );
}
}
}
=head1 AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
=cut
0x55AA;
|
