site/cgi-bin/modules/BSE/TB/MetaEntry.pm

   1 package BSE::TB::MetaEntry;
   2 use strict;
   3 use base 'Squirrel::Row';
   4
   5 our $VERSION = "1.001";
   6
   7 sub table {
   8   "bse_article_file_meta";
   9 }
  10
  11 sub columns {
  12   qw/id file_id name content_type value appdata owner_type/;
  13 }
  14
  15 sub defaults {
  16   content_type => "text/plain",
  17   appdata => 1,
  18 }
  19
  20 sub is_text {
  21   $_[0]->content_type eq "text/plain"
  22 }
  23
  24 1;