more pod

Model/FeedFile.pm

@@ -17,3 +17,46 @@ sub feed_file_stat() {
 }
 
 1;
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Model::FeedFile
+
+=head1 VERSION
+
+0.1
+
+=head1 DESCRIPTION
+
+Model::FeedFile - Model of feed_file table
+
+=head1 SYNOPSIS
+
+my $model = Model::FeedFile->load($arg->{id});
+print $model->feed_file_stat->{started_at};
+
+print ->load;
+
+=head1 METHODS
+
+=head2 feed_file_stat
+
+load Model::FeedFileStat
+
+=head1 AUTHORS
+
+mobitrade.ua
+
+=head1 COPYRIGHT AND LICENSE
+
+This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
+
+=head1 HISTORY
+
+Version 0.1: first release; April 2015
+
+=cut

Model/FeedFileStat.pm

@@ -28,3 +28,49 @@ sub is_exists() {
 }
 
 1;
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Model::FeedFileStat
+
+=head1 VERSION
+
+0.1
+
+=head1 DESCRIPTION
+
+Model::FeedFileStat - Model of feed_file_stat table
+
+=head1 SYNOPSIS
+
+my $model = Model::FeedFileStat->load($arg->{id});
+print $_->{id} foreach ( @{ $model->feed_file_stat_gaps } );
+
+
+=head1 METHODS
+
+=head2 feed_file
+
+load Model::FeedFile
+
+=head2 feed_file_stat_gaps
+
+"select * from feed_file_stat_gaps where feed_file_stat_id = ".$self->{id}
+
+=head1 AUTHORS
+
+mobitrade.ua
+
+=head1 COPYRIGHT AND LICENSE
+
+This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
+
+=head1 HISTORY
+
+Version 0.1: first release; April 2015
+
+=cut

Model/FeedFileStatGaps.pm

@@ -5,6 +5,7 @@ use strict;
 
 use Model;
 our @ISA = qw/Model/;
+
 sub db_table()   { 'feed_file_stat_gaps' }
 sub db_columns() { qw/id feed_file_stat_id rcv_time_after rcv_time_till/ }
 
@@ -16,3 +17,47 @@ sub feed_file_stat() {
 }
 
 1;
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Model::FeedFileStatGaps
+
+=head1 VERSION
+
+0.1
+
+=head1 DESCRIPTION
+
+Model::FeedFileStatGaps - Model of feed_file_stat_gaps table
+
+=head1 SYNOPSIS
+
+print $_->{id} foreach ( @{ Model::FeedFileStatGaps->list() } );
+
+=head1 METHODS
+
+=head2 feed_file
+
+load Model::FeedFile
+
+=head2 feed_file_stat_gaps
+
+"select * from feed_file_stat_gaps where feed_file_stat_id = ".$self->{id}
+
+=head1 AUTHORS
+
+mobitrade.ua
+
+=head1 COPYRIGHT AND LICENSE
+
+This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
+
+=head1 HISTORY
+
+Version 0.1: first release; April 2015
+
+=cut