File Coverage

blib/lib/File/Cat.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	8	50.0
condition	2	6	33.3
subroutine	5	5	100.0
pod	0	2	0.0
total	39	49	79.5

package File::Cat;

use strict;
use Carp;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw( &cat &cattail	);

$VERSION = '1.2';



=head1 NAME

File::Cat - Perl implementation of cat(1)

=head1 SYNOPSIS

  use File::Cat;

  cat ('/etc/motd', \*STDOUT)
	or die "Can't cat /etc/motd: $!";

=head1 DESCRIPTION

File::Cat is a module of adventure, danger, and low cunning. With it, you
will explore some of the most inane programs ever seen by mortals. No
computer should be without one!

=head1 FUNCTIONS

=over

=item *

cat I, I

Copies data from EXPR to FILEHANDLE, or returns false if an error occurred.
EXPR can be either an open readable filehandle or a filename to use as input.

=cut



sub cat ($$) {
	my ($input, $handle) = @_;

	unless (ref \$input eq 'GLOB' or ref \$input eq 'REF') {
		open FILE, $input or return;
	}
	while () {
		print $handle $_;
	}
	close FILE;

	return (1);
}



=pod

=item *

cattail I, I

Prints EXPR to FILEHANDLE -- backwards, line by line -- or returns
false if an error occurred. Again, EXPR can be either a filehandle
or a filename.

=cut



sub cattail ($$) {
	my ($input, $handle) = @_;
	my @lines = (0);

    unless (ref \$input eq 'GLOB' or ref \$input eq 'REF') {
		open FILE, $input or return;
	}

	while () {
		$lines[$.] = tell FILE;
	}

	pop @lines;
	while (defined ($_ = pop @lines)) {
		seek FILE, $_, 0;
		print $handle scalar();
	}
	close FILE;

	return (1);
}



=pod

=back

=head1 AUTHOR

Dennis Taylor, [e-mail]

=head1 APOLOGIES TO...

Marc Blank.

=head1 SEE ALSO

cat(1)

=cut