1 package App::IdiotBox::Video;
5 sub fields { return qw(slug bucket_slug name author details announcement_id) }
7 sub slug { shift->{slug} }
8 sub name { shift->{name} }
9 sub author { shift->{author} }
10 sub details { shift->{details} }
11 sub bucket { shift->{bucket} }
13 (my $s = join(' ', @{+shift}{qw(author name)})) =~ s/ /-/g;
17 join('/', $_[0]->bucket->slug, $_[0]->slug);