Changeset 22824


Ignore:
Timestamp:
09/09/10 10:37:06 (17 months ago)
Author:
alex
Message:

Removed consumer introspection, because it just doesn't work when composing with other roles

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/mnw21/pathquery_refactor/intermine/perl/lib/InterMine/Query/Roles/ExtendedQuery.pm

    r22534 r22824  
    1313role { 
    1414    my $param = shift; 
    15     # my %args = @_; 
    16     # my $consumer = $args{consumer}; 
    17     # my $head = $consumer->find_method_by_name('head') 
    18     #   or confess "You must have a 'head' method available"; 
    19     # my $insertion = $consumer->find_method_by_name('insertion') 
    20     #   or confess "You must have a 'insertion' method available"; 
    21     # ref $head->() eq 'HASH' 
    22     #   or confess "Your 'head' method must return a hashref"; 
    23     # ref $insertion->() eq 'HASH' 
    24     #   or confess "Your 'insertion' method must return a hashref"; 
     15    my %args = @_; 
    2516 
    2617    around to_xml => sub { 
Note: See TracChangeset for help on using the changeset viewer.