X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FIdiotBox%2FVideo.pm;h=e02fd892ccf895b47ee3b78f51d85587bdeb28db;hb=56640bceead341525ede167a80d61519e06f37cb;hp=cd12c2066a86ae9d809ae41e1de068553595e549;hpb=2da7f57fdf9bb6f57c950614bea6e85dd812f667;p=catagits%2FApp-IdiotBox.git

diff --git a/lib/App/IdiotBox/Video.pm b/lib/App/IdiotBox/Video.pm
index cd12c20..e02fd89 100644
--- 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} }