package MyHomePage;
use Moose;
has 'text' => (
traits => ['String'],
is => 'rw',
isa => 'Str',
default => q{},
handles => {
add_text => 'append',
replace_text => 'replace',
},
);
my $page = MyHomePage->new();
$page->add_text("foo"); # same as $page->text($page->text . "foo");
Increments the value stored in this slot using the magical string autoincrement operator. Note that Perl doesn't provide analogous behavior in "--", so "dec" is not available. This method returns the new value.
This method does not accept any arguments.
Appends to the string, like ".=", and returns the new value.
This method requires a single argument.
Prepends to the string and returns the new value.
This method requires a single argument.
Performs a regexp substitution (``s'' in perlop). There is no way to provide the "g" flag, but code references will be accepted for the replacement, causing the regex to be modified with a single "e". "/smxi" can be applied using the "qr" operator. This method returns the new value.
This method requires two arguments.
Runs the regex against the string and returns the matching value(s).
This method requires a single argument.
Just like ``chop'' in perlfunc. This method returns the chopped character.
This method does not accept any arguments.
Just like ``chomp'' in perlfunc. This method returns the number of characters removed.
This method does not accept any arguments.
Sets the string to the empty string (not the value passed to "default").
This method does not have a defined return value.
This method does not accept any arguments.
Just like ``length'' in perlfunc, returns the length of the string.
This acts just like ``substr'' in perlfunc. When called as a writer, it returns the substring that was replaced, just like the Perl builtin.
This method requires at least one argument, and accepts no more than three.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.