our $AUTHORITY = 'cpan:STEVAN';
sub append : method {
- my ($attr, $reader, $writer) = @_;
+ my ( $attr, $reader, $writer ) = @_;
- return sub { $writer->( $_[0], $reader->($_[0]) . $_[1] ) };
+ return sub { $writer->( $_[0], $reader->( $_[0] ) . $_[1] ) };
}
sub prepend : method {
- my ($attr, $reader, $writer) = @_;
+ my ( $attr, $reader, $writer ) = @_;
- return sub { $writer->( $_[0], $_[1] . $reader->($_[0]) ) };
+ return sub { $writer->( $_[0], $_[1] . $reader->( $_[0] ) ) };
}
sub replace : method {
- my ($attr, $reader, $writer) = @_;
+ my ( $attr, $reader, $writer ) = @_;
return sub {
my ( $self, $regex, $replacement ) = @_;
- my $v = $reader->($_[0]);
+ my $v = $reader->( $_[0] );
- if ( (ref($replacement)||'') eq 'CODE' ) {
+ if ( ( ref($replacement) || '' ) eq 'CODE' ) {
$v =~ s/$regex/$replacement->()/e;
- } else {
+ }
+ else {
$v =~ s/$regex/$replacement/;
}
- $writer->( $_[0], $v);
+ $writer->( $_[0], $v );
};
}
sub match : method {
- my ($attr, $reader, $writer) = @_;
- return sub { $reader->($_[0]) =~ $_[1] };
+ my ( $attr, $reader, $writer ) = @_;
+ return sub { $reader->( $_[0] ) =~ $_[1] };
}
sub chop : method {
- my ($attr, $reader, $writer) = @_;
+ my ( $attr, $reader, $writer ) = @_;
return sub {
- my $v = $reader->($_[0]);
+ my $v = $reader->( $_[0] );
CORE::chop($v);
- $writer->( $_[0], $v);
+ $writer->( $_[0], $v );
};
}
sub chomp : method {
- my ($attr, $reader, $writer) = @_;
+ my ( $attr, $reader, $writer ) = @_;
return sub {
- my $v = $reader->($_[0]);
+ my $v = $reader->( $_[0] );
chomp($v);
- $writer->( $_[0], $v);
+ $writer->( $_[0], $v );
};
}
sub inc : method {
- my ($attr, $reader, $writer) = @_;
+ my ( $attr, $reader, $writer ) = @_;
return sub {
- my $v = $reader->($_[0]);
+ my $v = $reader->( $_[0] );
$v++;
- $writer->( $_[0], $v);
+ $writer->( $_[0], $v );
};
}
sub clear : method {
- my ($attr, $reader, $writer) = @_;
+ my ( $attr, $reader, $writer ) = @_;
return sub { $writer->( $_[0], '' ) }
}
sub substr : method {
- my ($attr, $reader, $writer) = @_;
+ my ( $attr, $reader, $writer ) = @_;
return sub {
my $self = shift;
- my $v = $reader->($self);
+ my $v = $reader->($self);
my $offset = defined $_[0] ? shift : 0;
my $length = defined $_[0] ? shift : CORE::length($v);
my $replacement = defined $_[0] ? shift : undef;
my $ret;
- if (defined $replacement) {
- $ret = CORE::substr($v, $offset, $length, $replacement);
- $writer->($self, $v);
+ if ( defined $replacement ) {
+ $ret = CORE::substr( $v, $offset, $length, $replacement );
+ $writer->( $self, $v );
}
else {
- $ret = CORE::substr($v, $offset, $length);
+ $ret = CORE::substr( $v, $offset, $length );
}
return $ret;