34c37938 TC |
1 | package BSE::TB::TagCategoryDep; |
2 | use strict; |
3 | use base 'Squirrel::Row'; |
4 | |
5 | our $VERSION = "1.000"; |
6 | |
7 | sub columns { |
8 | qw(id cat_id depname); |
9 | } |
10 | |
11 | sub table { 'bse_tag_category_deps' } |
12 | |
13 | sub json_data { |
14 | my ($self) = @_; |
15 | |
16 | return $self->data_only; |
17 | } |
18 | |
19 | 1; |