File Coverage

blib/lib/KSx/IndexManager/Plugin/Partition.pm

Criterion	Covered	Total	%
statement	15	30	50.0
branch	0	6	0.0
condition	0	4	0.0
subroutine	5	9	55.5
pod	2	2	100.0
total	22	51	43.1

use strict;
use warnings;

package KSx::IndexManager::Plugin::Partition;

use base qw(KSx::IndexManager::Plugin);
__PACKAGE__->mk_group_accessors(simple => qw(key value));

use File::Spec;
use Carp::Clan qw(^KSx::IndexManager);

sub _value {
  my ($plugin, $arg) = @_;
  defined $arg->{$plugin->key} or
    croak "missing partition key: " . $plugin->key;
  return $arg->{$plugin->key};
}

sub _value_method {
  my ($plugin, $arg) = @_;
  my $meth = $arg->can($plugin->key) or
    croak "$arg is missing partition method: " . $plugin->key;
  return $arg->$meth;
}

sub new {
  my ($class, $arg) = @_;
  if ($arg->{method}) {
    $arg->{key} = delete $arg->{method};
    $arg->{value} ||= \&_value_method;
  } else {
    $arg->{value} ||= \&_value;
  }
  my $self = shift->SUPER::new(@_);
  return $self;
}

sub alter_path {
  my ($plugin, $self, $path_ref) = @_;
  $$path_ref = File::Spec->catdir(
    $$path_ref,
    $plugin->value->($plugin, $self->context),
  );
}

1;
__END__