[Jifty-commit] r4835 - in Net-Jifty: .

[jifty-commit at lists.jifty.org]

Author: sartak
Date: Sat Jan 12 23:00:33 2008
New Revision: 4835

Modified:
   Net-Jifty/   (props changed)
   Net-Jifty/lib/Net/Jifty.pm

Log:
 r50242 at onn:  sartak | 2008-01-12 22:58:59 -0500
 We don't need canonicalize_(model|action), the REST interface does that for us


Modified: Net-Jifty/lib/Net/Jifty.pm
==============================================================================
--- Net-Jifty/lib/Net/Jifty.pm	(original)
+++ Net-Jifty/lib/Net/Jifty.pm	Sat Jan 12 23:00:33 2008
@@ -362,7 +362,7 @@
 
 sub act {
     my $self   = shift;
-    my $action = $self->canonicalize_action(shift);
+    my $action = shift;
 
     return $self->post(["action", $action], @_);
 }
@@ -374,8 +374,8 @@
 =cut
 
 sub create {
-    my $self = shift;
-    my $model = $self->canonicalize_model(shift);
+    my $self  = shift;
+    my $model = shift;
 
     return $self->post(["model", $model], @_);
 }
@@ -388,7 +388,7 @@
 
 sub delete {
     my $self   = shift;
-    my $model  = $self->canonicalize_model(shift);
+    my $model  = shift;
     my $key    = shift;
     my $value  = shift;
 
@@ -403,7 +403,7 @@
 
 sub update {
     my $self   = shift;
-    my $model  = $self->canonicalize_model(shift);
+    my $model  = shift;
     my $key    = shift;
     my $value  = shift;
 
@@ -418,7 +418,7 @@
 
 sub read {
     my $self   = shift;
-    my $model  = $self->canonicalize_model(shift);
+    my $model  = shift;
     my $key    = shift;
     my $value  = shift;
 
@@ -434,53 +434,12 @@
 =cut
 
 sub search {
-    my $self = shift;
-    my $model = $self->canonicalize_model(shift);
+    my $self  = shift;
+    my $model = shift;
 
     return $self->get(["search", $model, @_]);
 }
 
-=head2 canonicalize_package TYPE, PACKAGE
-
-Prepends C<APPNAME.TYPE.> to C<PACKAGE> unless it's there already.
-
-=cut
-
-sub canonicalize_package {
-    my $self    = shift;
-    my $type    = shift;
-    my $package = shift;
-
-    my $appname = $self->appname;
-
-    return $package
-        if $package =~ /^\Q$appname.$type./;
-
-    return "$appname.$type.$package";
-}
-
-=head2 canonicalize_action ACTION
-
-Prepends C<APPNAME.Action.> to C<ACTION> unless it's there already.
-
-=cut
-
-sub canonicalize_action {
-    my $self = shift;
-    return $self->canonicalize_package('Action', @_);
-}
-
-=head2 canonicalize_model MODEL
-
-Prepends C<APPNAME.Model.> to C<MODEL> unless it's there already.
-
-=cut
-
-sub canonicalize_model {
-    my $self = shift;
-    return $self->canonicalize_package('Model', @_);
-}
-
 =head2 get_sid
 
 Retrieves the sid from the L<LWP::UserAgent> object.