b0VIM 7.1OLF\g+1askimpulse.local/opt/devel/Class-Dot/t/01-basic.tutf-8 U3210#"! UtpVad Vpgf^@ rP.    m W 9   f V   o n Y C   } t k D 2   __DATA__ok( _POSINT($new_cat->id), 'insert new cat');$new_cat->insert;my $new_cat = $rs->new($new_cat_data); ) ], tree house water mouse cockroach birdmy $memory_data = [ qw(}; colour => 0xc3ceca, action => 'eating', dna => 'GCGCHCHGHCCGCCHCHCG', gender => 'male',my $new_cat_data = {my $rs = $cat->resultset('Cat');isa_ok($cat, 'CatX');my $cat = CatX->new();} use_ok('CatX');BEGIN {} #$dbh->disconnect(); $dbh->do($schema); my $dbh = DBI->connect("DBI:SQLite2:dbname=$db_file;"); $plc->save; $config->{database} = \%db_config; my $config = $plc->load; }); domain => 'org.0x61736b.class.dot.model.test.CatX', my $plc = Config::PlConfig->new({ ); database => $db_file, driver => 'SQLite', my %db_config = ( my $db_file = tmpnam();};); content VARCHAR(16) cat INTEGER NOT_NULL, id INTEGER PRIMARY_KEY NOT_NULL,CREATE TABLE memory (); colour CHAR(4) NOT NULL action VARCHAR(128) NOT NULL, dna VARCHAR(128) NOT NULL, gender VARCHAR(64) DEFAULT 'female' NOT NULL, id INTEGER PRIMARY_KEY NOT_NULL,CREATE TABLE cats ( my $schema = qq{ use lib $Bin; use Config::PlConfig; use File::Temp qw(:POSIX); use FindBin qw($Bin);BEGIN {use DBI;use Test::More tests => 2;use warnings;use strict;# $Date$# $Revision$# $HeadURL$# $Author$# $Source$# $Id$#!/usr/local/bin/perl