1234567891011121314151617 package Bing::Search::Role::Result::Url;use Moose::Role;has 'Url' => ( is => 'rw', isa => 'Bing::Search::UrlType', coerce => 1);before '_populate' => sub { my( $self ) = @_; my $data = $self->data; my $url = delete $data->{Url}; $self->Url( $url ) if $url;};1;
package
Bing::Search::Role::Result::Url;
use
Moose::Role;
has
'Url'
=> (
is
=>
'rw'
,
isa
'Bing::Search::UrlType'
coerce
=> 1
);
before
'_populate'
sub
{
my
(
$self
) =
@_
;
$data
=
->data;
$url
delete
->{Url};
->Url(
)
if
};
1;