12345678910111213 #!/usr/bin/perluse feature 'say';use WWW::Vimeo::Simple::Activity qw(user_did);# retrieve user's activitiesmy $activities = user_did($user_name);foreach my $activity (@$activities) { say $activity -> user_name; say $activity -> type; say $activity -> subject_name;}
#!/usr/bin/perl
use
feature
'say'
;
WWW::Vimeo::Simple::Activity
qw(user_did)
# retrieve user's activities
my
$activities
= user_did(
$user_name
);
foreach
$activity
(
@$activities
) {
say
-> user_name;
-> type;
-> subject_name;
}