1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
package HTMLFormFu::MyBlockRole;
use Moose::Role;
use List::Util qw( first );
around attributes => \&_myblockrole_attrs;
around attrs => \&_myblockrole_attrs;
around attributes_xml => \&_myblockrole_attrs;
around attrs_xml => \&_myblockrole_attrs;
my $key = 'class';
my $value = 'myblockrole';
sub _myblockrole_attrs {
my $orig = shift;
my $self = shift;
if (@_) {
return $self->$orig(@_);
}
my $attrs = $self->{attributes};
my $done;
if ( exists $attrs->{$key} ) {
my @vals = split /\s+/, $attrs->{$key};
if ( first { $_ eq $value } @vals ) {
$done = 1;
}
}
if ( !$done ) {
$self->add_attrs( { $key => $value } );
}
return $attrs;
}
1;
|
