16 lines
268 B
Perl
16 lines
268 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Anvil::Tools;
|
||
|
|
|
||
|
|
my $anvil = Anvil::Tools->new();
|
||
|
|
$anvil->Log->level({set => 2});
|
||
|
|
|
||
|
|
# This is used to initialize the database
|
||
|
|
my $connections = $anvil->Database->connect();
|
||
|
|
print "Connections: [$connections]\n";
|
||
|
|
|
||
|
|
|
||
|
|
exit(0);
|