Minor fixes to make updating actually work.

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

diff --git a/lib/App/IdiotBox/Video.pm b/lib/App/IdiotBox/Video.pm
index cd12c20..e02fd89 100644 (file)
--- a/lib/App/IdiotBox/Video.pm
+++ b/lib/App/IdiotBox/Video.pm
@@ -4,6 +4,10 @@ use Moo;
 
 sub fields { return qw(slug bucket_slug name author details announcement_id) }
 
+with 'App::IdiotBox::Clonable';
+
+sub announcement_id { shift->{announcement_id} }
+sub bucket_slug { shift->{bucket_slug} }
 sub slug { shift->{slug} }
 sub name { shift->{name} }
 sub author { shift->{author} }