File Coverage

blib/lib/Tie/Subset.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	8	8	100.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	30	30	100.0

#!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.02';

sub TIEHASH {  ## no critic (RequireArgUnpacking)
	require Tie::Subset::Hash;
	@_>1 or croak "bad number of arguments to tie";
	croak "Tie::Subset can't (yet) be subclassed" unless shift eq __PACKAGE__;
	return Tie::Subset::Hash::TIEHASH('Tie::Subset::Hash', @_);
}

sub TIEARRAY {  ## no critic (RequireArgUnpacking)
	require Tie::Subset::Array;
	@_>1 or croak "bad number of arguments to tie";
	croak "Tie::Subset can't (yet) be subclassed" unless shift eq __PACKAGE__;
	return Tie::Subset::Array::TIEARRAY('Tie::Subset::Array', @_);
}

1;
__END__