File Coverage

blib/lib/Data/RuledCluster/Strategy.pm
Criterion Covered Total %
statement 15 16 93.7
branch 2 2 100.0
condition n/a
subroutine 5 6 83.3
pod 0 2 0.0
total 22 26 84.6


line stmt bran cond sub pod time code
1             package Data::RuledCluster::Strategy;
2 6     6   37098 use strict;
  6         11  
  6         172  
3 6     6   29 use warnings;
  6         9  
  6         135  
4 6     6   30 use Carp;
  6         18  
  6         566  
5 6     6   42 use Data::Util qw(is_array_ref);
  6         8  
  6         1198  
6              
7 0     0 0 0 sub resolve { Carp::croak('Not implement') }
8              
9             sub keys_from_args {
10 49     49 0 120 my ( $class, $args ) = @_;
11 49 100       233 return is_array_ref( $args->{key} ) ? @{ $args->{key} } : ( $args->{key} );
  2         8  
12             }
13              
14             1;
15