Forest::Tree::Roles::HasNodeFormatter - Simple role for custom node formatters

Forest documentation

Contained in the Forest distribution.

Index

NAME
DESCRIPTION
BUGS
AUTHOR
COPYRIGHT AND LICENSE

Code Index:

package Forest::Tree::Roles::HasNodeFormatter
- format_node
__END__
EOF

NAME

Forest::Tree::Roles::HasNodeFormatter - Simple role for custom node formatters

DESCRIPTION

Simple role for nodes that have custom formatters

BUGS

All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.

AUTHOR

Stevan Little <stevan.little@iinteractive.com>

COPYRIGHT AND LICENSE

Copyright 2008-2010 Infinity Interactive, Inc.

http://www.iinteractive.com

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

Forest documentation

Contained in the Forest distribution.

package Forest::Tree::Roles::HasNodeFormatter;
use Moose::Role;

our $VERSION   = '0.09';
our $AUTHORITY = 'cpan:STEVAN';

has 'node_formatter' => (
    is      => 'rw',
    isa     => 'CodeRef|Str',
    lazy    => 1,
    default => sub {
        sub { (shift)->node  || 'undef' }
    }
);

sub format_node {
    my ( $self, $node, @args ) = @_;

    my $fmt = $self->node_formatter;

    $node->$fmt(@args);
}

no Moose::Role; 1;

__END__