File Coverage

blib/lib/NG/SHashtable.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch			n/a
condition			n/a
subroutine	3	7	42.8
pod	0	2	0.0
total	12	28	42.8

package SHashtable;

use strict;
use warnings;
use base qw(Hashtable);

sub new {
    my $pkg  = shift;
    my $hash = {@_};
    return bless $hash, $pkg;
}

sub each {
    my ( $self, $sub ) = @_;
    $self->keys->sort(
        sub {
            my ( $a, $b ) = @_;
            return $a cmp $b;
        }
      )->each(
        sub {
            my ($key) = @_;
            $sub->( $key, $self->get($key) );
        }
      );
    return $self;
}

1;