use Biblio::Citation::Parser::Standard qw( );
BEGIN { *get_reliability = \&Biblio::Citation::Parser::Standard::get_reliability; }

my $r1 = get_reliability('_AUTHORS_ (_YEAR_) _TITLE_. _PUBLICATION_');
my $r2 = get_reliability('_AUTHORS_ (_YEAR_) _TITLE_'               );
print(($r1 > $r2 ? 'ok' : 'not ok'), " (r1: $r1, r2: $r2)\n");

##</code><code>##

ok (r1: 2.7, r2: 2.05)