avoid an internal error in .wrap if the arguments can't be evalled
[bse.git] / site / cgi-bin / modules / BSE / TB / ArticleFileMeta.pm
CommitLineData
6430ee52
TC
1package BSE::TB::ArticleFileMeta;
2use strict;
3use base 'Squirrel::Row';
4
cb7fd78d
TC
5our $VERSION = "1.000";
6
6430ee52
TC
7sub table {
8 "bse_article_file_meta";
9}
10
11sub columns {
c840f7f9 12 qw/id file_id name content_type value appdata/;
6430ee52
TC
13}
14
15sub defaults {
16 content_type => "text/plain",
c840f7f9 17 appdata => 1,
6430ee52
TC
18}
19
36e373a9
TC
20sub is_text {
21 $_[0]->content_type eq "text/plain"
22}
23
6430ee52 241;