Untitled

#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/lib";
use lib "$FindBin::Bin/cpan/lib/perl5";
use YAML qw( LoadFile );
use DB::Main;
use Test::More;
use Benchmark;

our %DBConfig = %{ LoadFile("$FindBin::Bin/yml/james-laptop.yml")->{'Model::DB'} };
our $schema = DB::Main->compose_connection($DBConfig{'schema_class'}, @{$DBConfig{'connect_info'}});
$ENV{'PERL_DPROF_BUFFER'} = 1000000000;


# Same query with objects
my $t = new Benchmark;
my $submission_rs = $schema->resultset('Submission')->search({
                'me.id' => $ARGV[0],
        });
diag $submission_rs, " submissions found.";
foreach my $submission($submission_rs->all) {
        diag "Attempting to grade ", $submission->id;
        $submission->grade;
}
diag "Total regrade time: ", timestr(timediff(new Benchmark, $t));