File Coverage

blib/lib/IO/File/Multi.pm

Criterion	Covered	Total	%
statement	38	58	65.5
branch	1	2	50.0
condition			n/a
subroutine	12	22	54.5
pod	0	17	0.0
total	51	99	51.5

# *|* PERL *|*
#
# Print to multiple filehandles with a single call
#
# File: Multi.pm
#
# Author: Nem W Schlecht
# Last Modification: $Date: 1998/08/07 23:30:57 $
#
# $Id: Multi.pm,v 1.1 1998/08/07 23:30:57 nem Exp $
# $Log: Multi.pm,v $
# Revision 1.1  1998/08/07 23:30:57  nem
# Initial revision
#
#
# Copyright © 1996 by Nem W Schlecht.  All rights reserved.
# This is free software; you can distribute it and/or
# modify it under the same terms as Perl itself.
#

package IO::File::Multi;
use strict;
use IO::File;
use Carp;

use vars qw($VERSION);
our $VERSION = '1.03';

sub new {
    my $class = shift;
    return bless( {}, $class );
}

#
# add another output
sub open {
    my $self = shift;
    my $fh   = new IO::File;
    $fh->open(@_) || carp( ref($self), " - open failed: '@_'" );
    push( @{ $self->{handles} }, $fh );
}

#
# Return refs to IO::File objects
sub members {
    my $self = shift;
    return @{ $self->{handles} };
}

#
# IO::File stub routine
sub fh_st {
    my $self = shift;
    my (@args) = @_;
    my $ret;
    my $sub_call = ( split( /::/o, ( caller(1) )[3] ) )[-1];    # Ack!
    for ( @{ $self->{handles} } ) {
        $ret = $_->$sub_call(@args);
    }
    return $ret;
}

#
# Clean up.
sub DESTROY {
    my $self = shift;
    $self->close();
}

sub print                        { my $I = shift; $I->fh_st(@_); }
sub printf                       { my $I = shift; $I->fh_st(@_); }
sub close                        { my $I = shift; $I->fh_st(@_); }
sub autoflush                    { my $I = shift; $I->fh_st(@_); }
sub output_field_separator       { my $I = shift; $I->fh_st(@_); }
sub output_record_separator      { my $I = shift; $I->fh_st(@_); }
sub format_page_number           { my $I = shift; $I->fh_st(@_); }
sub format_lines_per_page        { my $I = shift; $I->fh_st(@_); }
sub format_lines_left            { my $I = shift; $I->fh_st(@_); }
sub format_name                  { my $I = shift; $I->fh_st(@_); }
sub format_top_name              { my $I = shift; $I->fh_st(@_); }
sub format_line_break_characters { my $I = shift; $I->fh_st(@_); }
sub format_formfeed              { my $I = shift; $I->fh_st(@_); }

#
# IO::File::Multi doesn't do input (yet - and maybe it never will)
#
#sub getline { my $I = shift; $I->fh_st(@_); }
#sub getlines { my $I = shift; $I->fh_st(@_); }
#sub input_record_separator { my $I = shift; $I->fh_st(@_); }
#sub input_line_number { my $I = shift; $I->fh_st(@_); }

__END__