|
sub _build_domain_reg{
return qr/kontraband\.com/ ;
}
sub _build_validate_reg{
return qr|^/videos/(\d+)/.*| ;
}
sub process{
my ( $self , $embeder , $uri ) = @_ ;
my $validate_reg = $self ->validate_reg;
if ( my ( $vid ) = $uri ->path =~ m/ $validate_reg / ){
if ( (! $vid ) ){
return undef ;
}
return '<embed height="' . $embeder ->height . '" width="' . $embeder ->width . '" '
. 'usefullscreen="true" allowfullscreen="true" quality="high" '
. 'type="application/x-shockwave-flash"/>' ;
}
return undef ;
}
__PACKAGE__->meta->make_immutable;
|