File Coverage

blib/lib/Hub/Data/Subset.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	4	0.0
condition	0	3	0.0
subroutine	2	5	40.0
pod	3	3	100.0
total	11	34	32.3

package Hub::Data::Subset;
use strict;
use Hub qw/:lib/;
our $VERSION = '4.00043';
our @EXPORT = qw//;
our @EXPORT_OK = qw//;

sub new {
  my $self = shift;
  my $class = ref($self) || $self;
  my $object = bless [], $class;
  push @$object, @_;
  return $object;
}

sub get_data {
  my $self = shift;
  my $index = shift;
  croak "Illegal call to instance method" unless ref($self);
  Hub::subset($self, $index);
#warn "refining: $index ?? $item\n";
}

sub get_content {
  my $self = shift;
  my $index = shift;
  croak "Illegal call to instance method" unless ref($self);
  return @$self;
}

# ------------------------------------------------------------------------------
1;

__END__