File Coverage

blib/lib/Data/Hive/PathPacker/Strict.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	2	2	100.0
condition	2	4	50.0
subroutine	7	7	100.0
pod	3	3	100.0
total	39	41	95.1

use strict;
use warnings;
package Data::Hive::PathPacker::Strict 1.015;
# ABSTRACT: a simple, strict path packer

use parent 'Data::Hive::PathPacker';

use Carp ();

#pod =head1 DESCRIPTION
#pod
#pod The Strict path packer is the simplest useful implementation of
#pod L.  It joins path parts together with a fixed string
#pod and splits them apart on the same string.  If the fixed string occurs any path
#pod part, an exception is thrown.
#pod
#pod =method new
#pod
#pod   my $packer = Data::Hive::PathPacker::Strict->new( \%arg );
#pod
#pod The only valid argument is C, which is the string used to join path
#pod parts.  It defaults to a single period.
#pod
#pod =cut

sub new {
  my ($class, $arg) = @_;
  $arg ||= {};

  my $guts = {
    separator => $arg->{separator} || '.',
  };

  return bless $guts => $class;
}

sub pack_path {
  my ($self, $path) = @_;

  my $sep     = $self->{separator};
  my @illegal = grep { /\Q$sep\E/ } @$path;

  Carp::confess("illegal hive path parts: @illegal") if @illegal;

  return join $sep, @$path;
}

sub unpack_path {
  my ($self, $str) = @_;

  my $sep = $self->{separator};
  return [ split /\Q$sep\E/, $str ];
}

1;

__END__