view release on metacpan or  search on metacpan

Ent.pm  view on Meta::CPAN

    OK;
    }

sub dbc {
    my $self = shift;
    %$self = (%$self, @_);

    $self->{proto} ||= "mysql";
    $self->{srv}   ||= "localhost";
    $self->{usr}   ||= (getpwuid($>))[0];
    $self->{pwd}   ||= "";
    $self->{dbn}   ||= "";

    my $dsn = join ":", "DBI", @{$self}{qw/proto dbn srv/};
    $self->{dbh} = DBI->connect($dsn, $self->{usr}, $self->{pwd});
    @{$self}{qw/err errstr/} = ($?, $!);

    !$?;
    }

test.pl  view on Meta::CPAN

use vars qw/$ef $ok $ar $al/;

use DB::Ent;
ok(1, "use DB::Ent");

$ef = DB::Ent->new(dbn => "test", debug => $ENV{DEBUG});
ok(defined $ef && $ef->isa('DB::Ent')
	, "entity factory instantiated"
	) || die $!;

my $usr = (getpwuid($>))[0];
ok($ef->cs() eq "mysql://$usr\@localhost/test",
    "connection string verified"
    );

$ok = $ef->init(DROP => 1);
ok($ok, "schema created") || die $!;

$ar = $ef->mk(artist => "Björk");
ok(defined $ar && $ar->isa("DB::Ent")
    , "entity created"