X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FHTML%2FZoom.pm;h=07378b471faf46561ce787cfe48e374c2b5bb317;hb=2daa653a58384970b813ea933d125c4a88dad853;hp=d8c4f3a37f981b00ad4705d13bbdae188e1e6670;hpb=a4ffdd456d97ad50f05d803977c3f891ae84d052;p=catagits%2FHTML-Zoom.git diff --git a/lib/HTML/Zoom.pm b/lib/HTML/Zoom.pm index d8c4f3a..07378b4 100644 --- a/lib/HTML/Zoom.pm +++ b/lib/HTML/Zoom.pm @@ -298,16 +298,16 @@ cleanly: map { my $field = $_; sub { $_->select('label') - ->add_attribute( for => $field->{id} ) + ->add_to_attribute( for => $field->{id} ) ->then ->replace_content( $field->{label} ) ->select('input') - ->add_attribute( name => $field->{name} ) + ->add_to_attribute( name => $field->{name} ) ->then - ->add_attribute( type => $field->{type} ) + ->add_to_attribute( type => $field->{type} ) ->then - ->add_attribute( value => $field->{value} ) + ->add_to_attribute( value => $field->{value} ) } } @fields ]); @@ -696,7 +696,7 @@ together; the intermediary object isn't designed or expected to stick around. =head2 then - my $z2 = $z1->select('div')->add_attribute(class => 'spoon') + my $z2 = $z1->select('div')->add_to_attribute(class => 'spoon') ->then ->replace_content('I AM A DIV!');