Perl - subklasowanie DBI

Data publikacji: Jul 29, 2013 7:54:57 PM

Potrzebowałem kiedyś posiadać własne metody all() i one() w perlu, na wzór tych, które stworzyłem w PHP. Nareszcie się udało:

!/usr/bin/perl -w

use My::DBI;

my $dbh = My::DBI->connect("dbi:Pg:dbname=quaker;host=localhost;port=5432", "quaker_adm", "password");

my $sth = $dbh->prepare("SELECT i AS key, i + 1 AS value FROM generate_series(1, 10) i");

$sth->execute();

use Data::Dumper;

my $keys = [];

print Dumper($sth->all('key' => 'key', 'value' => 'value', 'uvalues' => { 'key' => $keys }));

print Dumper($keys);

W załączniku kod.