File Coverage

blib/lib/Data/Zipper.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	4	6	66.6
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	36	39	92.3

package Data::Zipper;
BEGIN {
  $Data::Zipper::VERSION = '0.02';
}
# ABSTRACT: Easily traverse and transform immutable data

use warnings FATAL => 'all';

use Carp 'confess';
use Class::MOP;
use Scalar::Util 'blessed';
use Sub::Exporter -setup => {
    exports => [qw( zipper )]
};

sub zipper {
    my %args = @_ == 1
        ? ( focus => shift() )
            : @_;

    my $data = $args{focus};
    my $class;
    if(blessed($data)) {
        $class = 'Data::Zipper::MOP';
    }
    elsif(ref($data) eq 'HASH') {
        $class = 'Data::Zipper::Hash'
    }
    else {
        die 'Cannot zip ' . ref($data) . ' objects';
    }

    Class::MOP::load_class($class);
    return $class->new(%args);
}

1;


__END__
=pod

=encoding utf-8

=head1 NAME

Data::Zipper - Easily traverse and transform immutable data

=head1 SYNOPSIS

    package Person;
    use Moose;

    has name => ( is => 'ro' );

    package MyApp;
    use Data::Zipper 'zipper';

    my $person = Person->new( name => 'John' )
    my $sally = zipper($person)
        ->traverse('name')->set('Sally')
        ->up
        ->focus;

=head1 FUNCTIONS

=head2 zipper

Create a zipper of the correct type, depending on the data given

=head1 AUTHOR

Oliver Charles

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Oliver Charles <[e-mail]>.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut