view release on metacpan or  search on metacpan

examples/runexample2_dbi.pl  view on Meta::CPAN

use strict;
use warnings;
use lib qw(lib ../lib/ ../../hg_Gtk2-Ex-DbLinker-DbTools/lib/);
use Gtk2 -init;
use DBI;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($DEBUG);

use Log::Any::Adapter;
Log::Any::Adapter->set('Log::Log4perl');

use Forms::Langues2;
use DataAccess::Dbi::Service;

    #use Devel::Cycle;

    my $dbfile = "./data/ex1";

my $dbh = DBI->connect(
    "dbi:SQLite:dbname=$dbfile",
    "", "",
    {   RaiseError => 1,
        PrintError => 1,
    }
) or die $DBI::errstr;
my $f;

sub load_main_w {
    my $data = DataAccess::Dbi::Service->new( { dbh => $dbh } );
    $f = Forms::Langues2->new(
        { gladefolder => "./gladefiles", data_broker => $data } );

}

&load_main_w;
Gtk2->main;

#find_cycle($f);
#print "Weakened\n";
#find_weakened_cycle($f);