Select Code to Download

$ perl main.pl 
enter pg pass: 
foo (7/2006-11-20)
...
FROM   ppo_data
WHERE  id_attached=? AND date=?
" with ParamValues: 1=undef, 2=undef] at /usr/share/perl5/DBIx/Context
+ualFetch.pm line 52, <STDIN> line 1.

postgresql> CREATE TABLE "indicators" (
  id SERIAL UNIQUE,
  name VARCHAR(20) NOT NULL,
...
  PRIMARY KEY (id_attached, date)
);
postgresql> INSERT INTO ppo_data VALUES (7, '20061120', 23, 34);

## FOO.pm
package FOO;
use base 'Class::DBI';
...
);

1;

## FOO/Indicators.pm
package FOO::Indicators;
use base 'FOO';
...
);

1;

## FOO/Indicators/PPO.pm
package FOO::Indicators::PPO;
use base 'FOO::Indicators';
...
__PACKAGE__->columns (Others => qw/data2/);

1;

## main.pl
use warnings;
use strict;
...
print "foo ($foo)\n";
$foo->delete;
FOO::Indicators::PPO->dbi_commit;