File Coverage

blib/lib/File/Print/Many.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	9	10	90.0
condition	4	6	66.6
subroutine	6	6	100.0
pod	2	2	100.0
total	53	56	94.6

package File::Print::Many;

use warnings;
use strict;
use Carp;
use namespace::autoclean;
# require Tie::Handle;

=head1 NAME

File::Print::Many - Print to more than one file descriptor at once

=head1 VERSION

Version 0.02

=cut

our $VERSION = '0.02';
# our @ISA = ('Tie::Handle');

=head1 SYNOPSIS

Print to more than one file descriptor at once.

=head1 SUBROUTINES/METHODS

=head2 new

    use File::Print::Many;
    open(my $fout1, '>', '/tmp/foo');
    open(my $fout2, '>', '/tmp/bar');
    my $many = File::Print::Many->new(fds => [$fout1, $fout2]);

=cut

sub new {
	my $proto = shift;
	my $class = ref($proto) || $proto;

	return unless(defined($class));

	my %params;
	if(ref($_[0]) eq 'HASH') {
		%params = %{$_[0]};
	} elsif(ref($_[0]) eq 'ARRAY') {
		$params{'fds'} = shift;
	# } elsif(ref($_[0])) {
		# Carp::croak('Usage: new(fds => \@array)');
	} elsif(scalar(@_) % 2 == 0) {
		%params = @_;
	} else {
		Carp::croak('Usage: new(fds => \@array)');
	}

	if((ref($params{fds}) ne 'ARRAY') ||
	   !defined(@{$params{fds}}[0])) {
		Carp::croak('Usage: new(fds => \@array)');
	}

	return bless {
		_fds => $params{'fds'}
	}, $class;
}

=head2 print

Send output.

    $many->print("hello, world!\n");
    $many->print('hello, ', "world!\n");
    $many->print('hello, ')->print("world!\n");

=cut

# sub PRINT {
	# my $self = shift;
#
	# foreach my $fd(@{$self->{'_fds'}}) {
		# print $fd @_;
	# }
# }

# sub TIEHANDLE {
	# bless \"$_[0]",$_[0];
# }

sub print {
	my $self = shift;
	my @data = @_;

	foreach my $fd(@{$self->{'_fds'}}) {
		print $fd @data;
	}

	return $self;
}

=head1 AUTHOR

Nigel Horne, C<<  >>

=head1 BUGS

Please report any bugs or feature requests to C,
or through the web interface at
L.
I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 SEE ALSO

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc File::Print::Many

You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=back

=head1 LICENCE AND COPYRIGHT

Copyright 2018-2022 Nigel Horne.

This program is released under the following licence: GPL2

=cut

1;