File Coverage

blib/lib/Tickit/Widgets.pm

Criterion	Covered	Total	%
statement	8	13	61.5
branch	0	2	0.0
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	11	18	61.1

#  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 -- [e-mail]

package Tickit::Widgets;

use strict;
use warnings;

our $VERSION = '0.25';

=head1 NAME

C - load several L 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 utility to simplify code that uses many
different L subclasses. Instead of a C line per module,
you can simply C this module and pass it the base name of each class.
It will C 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 method of the used classes.

=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

      $class = "Tickit::Widget::$class" unless $class =~ m/::/;

      ( my $file = "$class.pm" ) =~ s{::}{/}g;

      require $file;
   }
}

=head1 AUTHOR

Paul Evans

=cut

0x55AA;