use Moose;
sub _build_domain_reg{
return qr/video\.yahoo\.com/;
}
sub _build_validate_reg{
return qr|^/watch/(\d+)/(\d+)|;
}
sub process{
my ( $self, $embeder, $uri ) = @_;
my $validate_reg = $self->validate_reg;
if ( my ($vid, $id) = $uri->path =~ m/$validate_reg/ ){
if ( (!$vid) || (!$id) ){
return undef;
}
return '<object width="' . $embeder->width . '" height="' . $embeder->height . '">'
.'<param name="allowFullScreen" value="true" />'
.'<param name="bgcolor" value="#000000" /><param name="flashVars" '
.'value="id=' . $id . '&vid=' . $vid
.'&lang=en-gb&intl=uk&embed=1" />'
.'type="application/x-shockwave-flash" width="' . $embeder->width . '" height="' . $embeder->height . '" allowFullScreen="true" '
.'bgcolor="#000000" '
.'flashVars="id=' . $id . '&vid=' . $vid
.'&lang=en-gb&intl=uk&embed=1" ></embed></object>';
}
return undef;
}
__PACKAGE__->meta->make_immutable;