An Art::World simulator 🎨 https://metacpan.org/pod/Art::World
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 

32 lines
1005 B

#!/usr/bin/env perl
use strict;
use warnings;
use DBI;
use Teng::Schema::Dumper;
my $dbh = DBI->connect("dbi:SQLite:dbname=art.db","","") or die;
print Teng::Schema::Dumper->dump(
dbh => $dbh,
namespace => 'Art::World::Model',
inflate => +{
user => q|
use Mock::Inflate::Name;
inflate 'name' => sub {
my ($col_value) = @_;
return Mock::Inflate::Name->new(name => $col_value);
};
deflate 'name' => sub {
my ($col_value) = @_;
return ref $col_value ? $col_value->name : $col_value . '_deflate';
};
inflate qr/.+oo/ => sub {
my ($col_value) = @_;
return Mock::Inflate::Name->new(name => $col_value);
};
deflate qr/.+oo/ => sub {
my ($col_value) = @_;
return ref $col_value ? $col_value->name : $col_value . '_deflate';
};
|,
},
);