Select Code to Download

package Foo;

...
sub dbh {
    $_[0]->{dbh};
}

package Foo::mysql;

...
    my $self = shift;
    $self->dbh->func('last_insert_rowid');
}