make metadata more general
[bse.git] / 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;