File Coverage

blib/lib/Hub/Data/SortedHash.pm

Criterion	Covered	Total	%
statement	6	16	37.5
branch	0	4	0.0
condition	0	3	0.0
subroutine	2	4	50.0
pod	2	2	100.0
total	10	29	34.4

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

sub new {
  my $self = shift;
  my $classname = ref($self) || $self;
  my $obj = bless {}, $classname;
  tie %$obj, 'Hub::Knots::TiedObject', 'Hub::Knots::SortedHash';
  return $obj;
}

sub set_sort_order {
  my $self = shift;
  croak "Illegal call to instance method" unless ref($self);
  my $sort_order = shift;
  croak "Provide an array reference" unless isa($sort_order, 'ARRAY');
  $self->{'*tied'}->set_sort_keys(@$sort_order);
}

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

__END__