No description or website provided.
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
lib/Data/Visitor
t
xt
.gitignore
.shipit
Changes
MANIFEST.SKIP
Makefile.PL
README

README

NAME
    Data::Visitor::Lite - an easy implementation of Data::Visitor::Callback

SYNOPSIS
        use Data::Visitor::Lite;
        my $visitor = Data::Visitor::Lite->new(@replacers);

        my $value = $visitor->visit({ 
          # some structure
        });

DESCRIPTION
    Data::Visitor::Lite is an easy implementation of Data::Visitor::Callback

new(@replacers)
    this is a constructor of Data::Visitor::Lite.

        my $visitor = Data::Visitor::Lite->new(
            [   -implements => ['to_plain_object'] =>
                    sub { $_[0]->to_plain_object }
            ],
            [ -instance => 'Some::SuperClass' => sub { $_[0]->encode_to_utf8 } ]
            [ $replacer_type => $converter ]
        );
        #or

        my $visitor2 = Data::Visitor::Lite->new(sub{
            # callback all node of the structure
        });
        my $value = $visitor->visit({ something });

replacer type
    Data::Visitor::Lite has many expressions to make replacer which is
    applied only specified data type.

  -implements
    If you want to convert only the objects that implements
    'to_plain_object', you can write just following :

        my $visitor = Data::Visitor::Lite->new(
            [   -implements => ['to_plain_object'] => sub {
                    return $_[0]->to_plain_object;
                    }
            ]
        );

    it means it is easy to convert structures using duck typing.

  -instance
    "-instance" replacer type is able to create a converter for all
    instances of some class in the recursive structure.

        my $visitor = Data::Visitor::Lite->new(
            [ -instance => 'Person' => sub{ $_[0]->nickname }]
        );

        $visitor->visit({
            master => Employer->new({ nickname => 'Kenji'}),
            slave  => Employee->new({ nickname => 'Daichi'});
        });

        # { master => "Kenji", slave => 'Daichi'}

  -value
    "-value" means not a reference and/or blessed object.

  -hashkey
    "-hashkey" means key string of the hash reference in the structure.

  -string
    "-string" means hash keys and all string value in the structure.

  -object
    "-object" means a reference and/or blessed object

  other types
    the origin of other replace types is Data::Util.( e.g. glob_ref ,
    scalar_ref, invocant , number ,integer and so on )

AUTHOR
    Daichi Hiroki <hirokidaichi {at} gmail.com>

SEE ALSO
    Data::Visitor::Callback Data::Util

LICENSE
    This library is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.