;
use warnings;
use utf8;
use Carp;
use Getopt::Long qw(GetOptionsFromArray);
use DBI;
use JSON::Parse 'json_file_to_perl';
use Data::Dumper;
use SqlBatch::AbstractConfiguration;
sub new {
my ($
croak "Configuration file '$path' not found"
unless -e $path;
}
$self->{loaded} = json_file_to_perl($path);
}
sub requirement_assertion {
my $self = shift;
my $id = shift;