Changeset 22822

Timestamp:

09/09/10 10:33:04 (17 months ago)

Author:

alex

Message:

Allowed passing roles through from the InterMine factory class

File:

• branches/mnw21/pathquery_refactor/intermine/perl/lib/InterMine.pm (modified) (2 diffs)

branches/mnw21/pathquery_refactor/intermine/perl/lib/InterMine.pm

@@ -86 +86 @@
 sub new_query {
     my $class = shift;
-    return $class->get_service(@_)->new_query;
+    my %args  = @_;
+    my $roles = delete $args{with};
+    return $class->get_service(%args)->new_query(with => $roles);
 }
 
@@ -102 +104 @@
     my $class = shift;
     my $name  = shift;
-    return $class->get_service(@_)->template($name);
+    my %args  = @_;
+    my $roles = delete $args{with};
+    return $class->get_service(%args)->template($name, $roles);
 }