Revision 0bd2b138
Von Bernd Bleßmann vor mehr als 3 Jahren hinzugefügt
| SL/Presenter/MaterialComponents.pm | ||
|---|---|---|
|
|
||
|
_set_id_attribute(\%attributes, $attributes{name});
|
||
|
|
||
|
my $class = delete %attributes{class};
|
||
|
my $class = delete $attributes{class};
|
||
|
my $icon = $attributes{icon}
|
||
|
? icon(delete $attributes{icon}, class => 'prefix')
|
||
|
: '';
|
||
Auch abrufbar als: Unified diff
S:P:MaterialComponents: delete auf $hash{k}, nicht %hash{k}
Gibt sonst einen Fehler zumindest bei älteren Perl-Versionen.