[Bast-commits] r8048 - ironman/plagger/lib/IronMan/Schema/ResultSet

[castaway at dev.catalyst.perl.org]

Author: castaway
Date: 2009-12-08 22:44:34 +0000 (Tue, 08 Dec 2009)
New Revision: 8048

Modified:
   ironman/plagger/lib/IronMan/Schema/ResultSet/Feed.pm
Log:
named args to add_new_blog


Modified: ironman/plagger/lib/IronMan/Schema/ResultSet/Feed.pm
===================================================================
--- ironman/plagger/lib/IronMan/Schema/ResultSet/Feed.pm	2009-12-08 15:15:50 UTC (rev 8047)
+++ ironman/plagger/lib/IronMan/Schema/ResultSet/Feed.pm	2009-12-08 22:44:34 UTC (rev 8048)
@@ -9,15 +9,16 @@
 
 ## Need to check if url is duplicated by normalising it as well as just uniquing what is passed in!
 sub add_new_blog {
-    my ($self, $title, $email, $url) = @_;
+    my ($self, %args) = @_;
 
+#    print STDERR "Add new blog: ", Data::Dumper::Dumper(\%args );
     my $uuids = Data::UUID->new;
     my $fdb = $self->find_or_new
       ({
         id => $uuids->create_str,
-        url => $url,
-        title => $title,
-        owner => $email,
+        url => $args{url},
+        title => $args{title},
+        owner => $args{email},
        },
        { key => 'url' }
       );