Adding support for video file sizes

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

diff --git a/lib/App/IdiotBox.pm b/lib/App/IdiotBox.pm
index 88e90c6..3a62cc5 100644 (file)
--- a/lib/App/IdiotBox.pm
+++ b/lib/App/IdiotBox.pm
@@ -32,6 +32,8 @@ use List::Util qw(first);
   sub author { shift->{author} }
   sub details { shift->{details} }
   sub bucket { shift->{bucket} }
+  sub width { shift->{width} }
+  sub height { shift->{width} }
   sub file_name {
     (my $s = join(' ', @{+shift}{qw(author name)})) =~ s/ /-/g;
     $s;