158 |
|
|
159 |
foreach my $s ( $self->sources ) { |
foreach my $s ( $self->sources ) { |
160 |
Jifty->log->debug("testing source class $s"); |
Jifty->log->debug("testing source class $s"); |
161 |
if ($s->can('content_have') && $s->content_have( $content ) ) { |
if ( $s->can('content_have') ) { |
162 |
Jifty->log->debug("${s}->content_have succesful"); |
my $regex = $s->content_have( $content ) or |
163 |
return "$s"; |
die "${s}->content_have didn't return anything"; |
164 |
|
die "${s}->content_have didn't return regex but ", dump( $regex ), " ref ", ref( $regex ) |
165 |
|
unless ( ref($regex) eq 'Regexp' ); |
166 |
|
if ( $content =~ $regex ) { |
167 |
|
Jifty->log->debug("${s}->content_have succesful"); |
168 |
|
return $s; |
169 |
|
} |
170 |
} |
} |
171 |
} |
} |
172 |
} |
} |