metaperl

[tbrannon@devel DataModel]$ perl play.pl
DBI::db=HASH(0xa42757c) at play.pl line 22.
$VAR1 = [
          bless( {
                   'emp_no' => '110022',
                   'dept_no' => 'd001',
                   'from_date' => '1985-01-01',
                   'dept_name' => 'Marketing',
                   'to_date' => '1991-10-01'
                 }, 'EMP::AutoView::EMP::Dept_Manager_JOIN_departments_role' )

metaperl

package Sakila::DBH;

use strict;

my $dbfile = "$ENV{SAKILA}/schema.sqlite3";

our %c = 
  (
   dsn => "dbi:SQLite:$dbfile",
   user => '',

metaperl

use lib "$ENV{SHOOTOUT}/lib";
use lib "$ENV{SAKILA}";
use lib "$ENV{SAKILA}/DBIx/Class";

use SakSchema;  # mysql  source
use Sak2Schema; # sqlite target

use Sakila::DBH::MySQL;

metaperl

[tbrannon@devel prg]$ sudo cpan Github::Import
Password: 
CPAN: Storable loaded ok (v2.15)
Going to read '/root/.cpan/Metadata'
  Database was generated on Wed, 19 Aug 2009 16:27:25 GMT
CPAN: LWP::UserAgent loaded ok (v5.829)
CPAN: Time::HiRes loaded ok (v1.9715)
Fetching with LWP:
  http://ftp.osuosl.org/pub/CPAN/authors/01mailrc.txt.gz

metaperl

[tbrannon@devel Rose-DB-Object-FAQ]$ sudo cpan App::Cmd
Password: 
CPAN: Storable loaded ok (v2.15)
Going to read '/root/.cpan/Metadata'
  Database was generated on Thu, 20 Aug 2009 16:27:07 GMT
Running install for module 'App::Cmd'
Running make for R/RJ/RJBS/App-Cmd-0.206.tar.gz
CPAN: LWP::UserAgent loaded ok (v5.829)
CPAN: Time::HiRes loaded ok (v1.9715)
Fetching with LWP:

metaperl

where =>
  [
    [ \q(actor_id BETWEEN ? AND ?), @$args ],
  ],

metaperl

[tbrannon@devel lib]$ ./app update_range 199 201
couldn't load MyApp::Command::list_actors: app setup requested on App::Cmd subclass MyApp at /usr/lib/perl5/site_perl/5.8.8/App/Cmd/Setup.pm line 35
	App::Cmd::Setup::_make_app_class('App::Cmd::Setup', 'undef', 'HASH(0x992dc20)') called at /usr/lib/perl5/site_perl/5.8.8/Sub/Exporter.pm line 536
	Sub::Exporter::__ANON__('ARRAY(0x991ca98)') called at /usr/lib/perl5/site_perl/5.8.8/Sub/Exporter.pm line 562
	Sub::Exporter::_collect_collections('HASH(0x991dbc0)', 'ARRAY(0x991c6d8)', 'App::Cmd::Setup', 'MyApp') called at /usr/lib/perl5/site_perl/5.8.8/Sub/Exporter.pm line 740
	Sub::Exporter::__ANON__('App::Cmd::Setup', '-app') called at /home/tbrannon/prg/Rose-DB-Object-FAQ/lib/../lib/MyApp.pm line 3
	MyApp::BEGIN() called at /home/tbrannon/prg/Rose-DB-Object-FAQ/lib/../lib/MyApp.pm line 3
	eval {...} called at /home/tbrannon/prg/Rose-DB-Object-FAQ/lib/../lib/MyApp.pm line 3
	require MyApp.pm called at /home/tbrannon/prg/Rose-DB-Object-FAQ/lib/../lib/MyApp/Command/li

metaperl

CREATE TABLE IF NOT EXISTS `agent_filter` (
  `id` int(10) unsigned NOT NULL auto_increment,
  `people_id` int(10) unsigned NOT NULL default '0',
  `filter_set_id` int(10) unsigned NOT NULL default '0',
  `filter_id` int(10) unsigned NOT NULL default '0',
  `operator` enum('eq','ne','ge','le','nop') NOT NULL,
  `value` varchar(32) NOT NULL default '',
  `created_stamp` timestamp NOT NULL default CURRENT_TIMESTAMP,
  PRIMARY KEY  (`id`),
  KEY `people_id` (`people_id`),

metaperl

BBC iPlayer - Cat/DBIC
YP (46th largest site) -- Cat/DBIC

metaperl

[tbrannon@devel Number-Closest]$ ls
blib  Changes  lib  Makefile  Makefile.PL  MANIFEST  pm_to_blib  README  t
[tbrannon@devel Number-Closest]$ git config --add github.user metaperl
error: could not lock config file .git/config
[tbrannon@devel Number-Closest]$ git init
Initialized empty Git repository in /home/tbrannon/prg/Number-Closest/.git/
[tbrannon@devel Number-Closest]$ git config --add github.user metaperl
[tbrannon@devel Number-Closest]$ git config --add github.token 7ec1d7b3fce2c519154df99b6599b303
[tbrannon@devel Number-Closest]$ git config --add github-import.remote origin 
[tbrannon@devel Number-Closest]$ github-import