package BCDM::Criteria::SITE;
use strict;
use warnings;
use base 'BCDM::Criteria';

# this so that we know the criterionid for
# updates in the intersection table
sub _criterion { $BCDM::Criteria::SITE }

# this tests the criterion and returns
# boolean 0/1 depending on fail/pass. In
# addition, optional notes may be returned.
sub _assess {
    my $package = shift;
    my $record = shift;
    return $record->site eq '' ? 0 : 1, "Determined from site column";
# alternative regex: return ($record->site =~ /^\s*$/) ? (0, "Determined from blank site column") : (1, "Determined from site column");
}

1;
