[catagits/App-IdiotBox.git] / lib / App / IdiotBox / Video.pm

package App::IdiotBox::Video;

use Moo;

sub fields { return qw(slug bucket_slug name author details announcement_id) }

sub slug { shift->{slug} }
sub name { shift->{name} }
sub author { shift->{author} }
sub details { shift->{details} }
sub bucket { shift->{bucket} }
sub file_name {
  (my $s = join(' ', @{+shift}{qw(author name)})) =~ s/ /-/g;
  $s;
}
sub url_path {
  join('/', $_[0]->bucket->slug, $_[0]->slug);
}

1;
Commit	Line	Data
f29e9b6f	1	package App::IdiotBox::Video;
	2
	3	use Moo;
	4
	5	sub fields { return qw(slug bucket_slug name author details announcement_id) }
	6
	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} }
	12	sub file_name {
	13	(my $s = join(' ', @{+shift}{qw(author name)})) =~ s/ /-/g;
	14	$s;
	15	}
	16	sub url_path {
	17	join('/', $_[0]->bucket->slug, $_[0]->slug);
	18	}
	19
	20	1;