NAME
Test::Run::Sprintf::Named::FromAccessors - named sprintf according to the values of accessors.
SYNOPSIS
my $formatter =
Test::Run::Sprintf::Named::FromAccessors->new(
{
fmt => "Hello %(name)s! Today you are %(age)d years old.",
)
);
my $person1 = Person->new(name => "Larry", age => 24);
my $msg1 = $formatter->format({args => { obj => $person1 }});
my $person2 = Person->new(name => "Rachel", age => 30);
my $msg2 = $formatter->format({args => { obj => $person2 }});DESCRIPTION
This module is a sub-class of Text::Sprintf::Named where the variables inside the sprintf fields (e.g: %(varname)s) are read from the accessors (or any other function) of the current object.
METHODS
$formatter->calc_param()
Over-riding the behavior of the equivalent one in Text::Sprintf::Named.
$formatter->obj_format($object, \%args)
Formats based on the accessors of the object $object. I don't think %args is used in any way.
AUTHOR
Written by Shlomi Fish, http://www.shlomifish.org/.
LICENSE
This file is licensed under the MIT X11 License:
http://www.opensource.org/licenses/mit-license.php