gistfile1.txt

    $sth->execute(
        $grade,
        $report->{name},
        $report->{metainfo}{authority} || $report->{metainfo}{author} || $report->{metainfo}{auth} || '',
       ($report->{version} =~ /^v\d/ ? substr($report->{version}, 1) : $report->{version}),
        $report->{perl}{compiler}{version},
        $report->{vm}{name},
        $report->{kernel}{name},
       ($report->{distro}{release} ne 'unknown' ? $report->{distro}{release} : $report->{distro}{version}),
       ($report->{kernel}{arch}    ne 'unknown' ? $report->{kernel}{arch}    : $report->{kernel}{bits}),
        request->body,
    );