Help for this page

Select Code to Download

Select or download this

use Biblio::Citation::Parser::Standard qw( );
BEGIN { *get_reliability = \&Biblio::Citation::Parser::Standard::get_r
+eliability; }
...
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");

Select or download this
```
ok (r1: 2.7, r2: 2.05)
```