MouseX::AttributeHelpers::String
package MyHomePage;
use Mouse;
use MouseX::AttributeHelpers;
has 'text' => (
metaclass => 'String',
is => 'rw',
isa => 'Str',
default => '',
provides => {
append => 'add_text',
clear => 'clear_text',
},
);
package main;
my $page = MyHomePage->new;
$page->add_text("foo"); # same as $page->text($page->text . "foo");
$page->clear_text; # same as $page->text('');
This module provides a simple string attribute, to which mutating string
operations can be applied more easily.
NAKAGAWA Masaki <masaki@cpan.org>
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
MouseX::AttributeHelpers, MouseX::AttributeHelpers::Base