File Coverage

blib/lib/Tie/Subset.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	4	8	50.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	28	32	87.5

#!perl
package Tie::Subset;
use warnings;
use strict;
use Carp;

# For AUTHOR, COPYRIGHT, AND LICENSE see the bottom of this file

=head1 Name

Tie::Subset - Tie an array or hash to a subset of another array or hash, respectively

=head1 Synopsis

 use Tie::Subset;

 my %hash = ( foo=>11, bar=>22, quz=>33 );
 tie my %subset, 'Tie::Subset', \%hash, ['bar','quz'];
 # same as tie-ing to 'Tie::Subset::Hash'

 my @array = (55,66,77,88,99);
 tie my @subset, 'Tie::Subset', \@array, [1,2,3];
 # same as tie-ing to 'Tie::Subset::Array'

=head1 Description

This class simply delegates to
B> or
B> as appropriate.
Please see the documentation of those modules.

=cut

our $VERSION = '0.01';

sub TIEHASH {  ## no critic (RequireArgUnpacking)
	require Tie::Subset::Hash;
	@_>1 or croak "bad number of arguments to tie";
	my $class = shift;
	$class = 'Tie::Subset::Hash' if $class eq __PACKAGE__;
	return Tie::Subset::Hash::TIEHASH($class, @_);
}

sub TIEARRAY {  ## no critic (RequireArgUnpacking)
	require Tie::Subset::Array;
	@_>1 or croak "bad number of arguments to tie";
	my $class = shift;
	$class = 'Tie::Subset::Array' if $class eq __PACKAGE__;
	return Tie::Subset::Array::TIEARRAY($class, @_);
}

1;
__END__