clusterssh/lib/App/ClusterSSH/Window.pm

61 lines
1 KiB
Perl
Raw Normal View History

2016-04-08 20:51:18 +01:00
use strict;
use warnings;
package App::ClusterSSH::Window;
# ABSTRACT: App::ClusterSSH::Window - Base obejct for different types of window module
=head1 DESCRIPTION
Base object to allow for configuring and using different types of windows libraries
=cut
=head1 METHODS
=over 4
=cut
2016-04-08 20:51:18 +01:00
use Carp;
use base qw/ App::ClusterSSH::Base /;
2017-12-23 11:42:40 +00:00
# Module to contain window generic code and pull in specific code from
# an appropriate module
sub import {
my ($class) = @_;
# Find what windows module we should be using and just overlay it into
# this object
my $package_name = __PACKAGE__ . '::Tk';
( my $package_path = $package_name ) =~ s{::}{/}g;
require "$package_path.pm";
$package_name->import();
{
no strict 'refs';
push @{ __PACKAGE__ . '::ISA' }, $package_name;
}
}
2016-04-08 20:51:18 +01:00
2017-12-23 11:42:40 +00:00
my %servers;
2016-04-08 20:51:18 +01:00
=item $obj = App::ClusterSSH::Window->new({});
Creates object
=back
=cut
sub new {
my ( $class, %args ) = @_;
my $self = $class->SUPER::new(%args);
return $self;
}
1;