File Coverage

blib/lib/Algorithm/SkipList/Header.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	1	1	100.0
total	24	29	82.7

package Algorithm::SkipList::Header;

use 5.006;
use strict;

use base 'Tree::Node';

use Carp qw( croak );

our $VERSION = '2.00_02';
$VERSION = eval $VERSION;


sub key_cmp {
  return -1;
}

sub _error {
  croak "this method should never be run";
  return;
}

BEGIN {
  foreach my $method (
   qw( key set_key value set_value  ))
    { no strict 'refs'; *$method = \&_error; }
}

1;

__END__