Changeset 25801

Timestamp:

12/03/08 23:41:24 (4 years ago)

Author:

tokuhirom

Message:

use mouse interface

Files:

• lang/perl/HTTP-Engine/branches/mouse/lib/HTTP/Engine/Interface.pm (modified) (1 diff)

lang/perl/HTTP-Engine/branches/mouse/lib/HTTP/Engine/Interface.pm

@@ -113 +113 @@
     }
     for my $attribute (keys %{ $args->{attributes} || {} }) {
-        $writer->add_attribute( $attribute, $args->{attributes}->{$attribute} );
+        Mouse::Meta::Attribute->create( $writer->meta, $attribute,
+            %{ $args->{attributes}->{$attribute} } );
     }