use Modern::Perl;

use Modern::Perl;

use Carp;

use Carp;

use C4::Context;

use C4::Context;

use base qw(Class::Accessor);

use base qw(Class::Accessor);

use vars qw($database);

use vars qw($database);

# database connection from the data given in the current context, and

# database connection from the data given in the current context, and

# returns it.

# returns it.

sub _new_schema {

sub _new_schema {

    my $context = C4::Context->new();

    my $context = C4::Context->new();

    my $db_driver = $context->{db_driver};

    my $db_driver = $context->{db_driver};