diff options
| -rw-r--r-- | lib/JournalApp/Schema.pm | 20 | ||||
| -rw-r--r-- | lib/JournalApp/Schema/Result/Journal.pm | 90 | ||||
| -rw-r--r-- | schema.sqlite | 8 | ||||
| -rw-r--r-- | test_run.pl | 9 |
4 files changed, 127 insertions, 0 deletions
diff --git a/lib/JournalApp/Schema.pm b/lib/JournalApp/Schema.pm new file mode 100644 index 0000000..1169f90 --- /dev/null +++ b/lib/JournalApp/Schema.pm @@ -0,0 +1,20 @@ +use utf8; +package JournalApp::Schema; + +# Created by DBIx::Class::Schema::Loader +# DO NOT MODIFY THE FIRST PART OF THIS FILE + +use strict; +use warnings; + +use base 'DBIx::Class::Schema'; + +__PACKAGE__->load_namespaces; + + +# Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-09-09 13:43:26 +# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:SUZtwRrW3bheVZV5yfESSw + + +# You can replace this text with custom code or comments, and it will be preserved on regeneration +1; diff --git a/lib/JournalApp/Schema/Result/Journal.pm b/lib/JournalApp/Schema/Result/Journal.pm new file mode 100644 index 0000000..23d36ff --- /dev/null +++ b/lib/JournalApp/Schema/Result/Journal.pm @@ -0,0 +1,90 @@ +use utf8; +package JournalApp::Schema::Result::Journal; + +# Created by DBIx::Class::Schema::Loader +# DO NOT MODIFY THE FIRST PART OF THIS FILE + +=head1 NAME + +JournalApp::Schema::Result::Journal + +=cut + +use strict; +use warnings; + +use base 'DBIx::Class::Core'; + +=head1 COMPONENTS LOADED + +=over 4 + +=item * L<DBIx::Class::InflateColumn::DateTime> + +=back + +=cut + +__PACKAGE__->load_components("InflateColumn::DateTime"); + +=head1 TABLE: C<journals> + +=cut + +__PACKAGE__->table("journals"); + +=head1 ACCESSORS + +=head2 id + + data_type: 'integer' + is_auto_increment: 1 + is_nullable: 0 + +=head2 date + + data_type: 'integer' + is_nullable: 0 + +=head2 fulltext + + data_type: 'text' + is_nullable: 1 + +=head2 image_url + + data_type: 'text' + is_nullable: 1 + +=cut + +__PACKAGE__->add_columns( + "id", + { data_type => "integer", is_auto_increment => 1, is_nullable => 0 }, + "date", + { data_type => "integer", is_nullable => 0 }, + "fulltext", + { data_type => "text", is_nullable => 1 }, + "image_url", + { data_type => "text", is_nullable => 1 }, +); + +=head1 PRIMARY KEY + +=over 4 + +=item * L</id> + +=back + +=cut + +__PACKAGE__->set_primary_key("id"); + + +# Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-09-09 13:43:26 +# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ZkhgdlWA1CCocyRTwQ6PVA + + +# You can replace this text with custom code or comments, and it will be preserved on regeneration +1; diff --git a/schema.sqlite b/schema.sqlite new file mode 100644 index 0000000..1fe63c0 --- /dev/null +++ b/schema.sqlite @@ -0,0 +1,8 @@ +PRAGMA foreign_keys = ON; +CREATE TABLE journals( + id INTEGER PRIMARY KEY NOT NULL, --optional + date INTEGER NOT NULL, + fulltext TEXT, + image_url TEXT +); + diff --git a/test_run.pl b/test_run.pl new file mode 100644 index 0000000..a60f1f1 --- /dev/null +++ b/test_run.pl @@ -0,0 +1,9 @@ +#!/usr/bin/perl + +use lib 'lib'; +use JournalApp::Schema; +use Data::Dumper; + +my $schema = JournalApp::Schema->connect( 'dbi:SQLite:./journals.db', '', ''); + +print Dumper $schema; |
