Added DBIx::Class::WebForm

diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm
index 26cacf0..d565abf 100644 (file)
--- a/lib/Catalyst/Test.pm
+++ b/lib/Catalyst/Test.pm
@@ -62,7 +62,7 @@ Returns the content.
 
 Returns a C<HTTP::Response> object.
 
-    my $res =request('foo/bar?test=1');
+    my $res = request('foo/bar?test=1');
 
 =cut
 
@@ -79,7 +79,7 @@ sub import {
 
     else {
         $class->require;
-               die if $@ && $@ !~ /^Can't locate /;
+        die if $@ && $@ !~ /^Can't locate /;
         $class->import;
 
         $request = sub { $class->run(@_) };

diff --git a/lib/Catalyst/Utils.pm b/lib/Catalyst/Utils.pm
index c0eeefe..8fe7043 100644 (file)
--- a/lib/Catalyst/Utils.pm
+++ b/lib/Catalyst/Utils.pm
@@ -1,7 +1,6 @@
 package Catalyst::Utils;
 
 use strict;
-use attributes ();
 use Catalyst::Exception;
 use File::Spec;
 use HTTP::Request;
@@ -37,14 +36,6 @@ sub appprefix {
     return $class;
 }
 
-=item attrs($coderef)
-
-Returns attributes for coderef in a arrayref
-
-=cut
-
-sub attrs { attributes::get( $_[0] ) || [] }
-
 =item class2appclass($class);
 
 Returns the appclass for class.
@@ -207,25 +198,6 @@ sub prefix {
     return $name;
 }
 
-=item reflect_actions($class);
-
-Returns an arrayref containing all actions of a component class.
-
-=cut
-
-sub reflect_actions {
-    my $class   = shift;
-    my $actions = [];
-    eval '$actions = $class->_action_cache';
-
-    if ($@) {
-        Catalyst::Exception->throw( message =>
-              qq/Couldn't reflect actions of component "$class", "$@"/ );
-    }
-
-    return $actions;
-}
-
 =item request($request)
 
 Returns a HTTP::Request object.