view release on metacpan or  search on metacpan

lib/Term/Screen/Uni.pm  view on Meta::CPAN

	tie(%{$self}, 'Term::Screen::Uni::PassToHandler');

	if ($^O eq 'MSWin32')
		{ $self->{'handler'} = eval 'use Term::Screen::Win32; return Term::Screen::Win32->new();'; }
	else
		{ $self->{'handler'} = eval 'use Term::Screen; return Term::Screen->new();'; };

	if (!defined($self->{'handler'}))
		{ croak("Can not create Term::Screen handler: ".$@); };

	return bless $self => $class;
	};


1;
__END__
# Below is stub documentation for your module. You'd better edit it!

=head1 NAME

Term::Screen::Uni - Works exactly as L<Term::Screen> (version 1.09) on evry platform Term::Screen is working plus Win32