6 my $results = C4
::SocialData
::get_report
;
8 say "==== Social Data report ====";
9 say "Matched : (" . scalar( @
{ $results->{with
} } ) . ")";
10 say "biblionumber = $_->{biblionumber},\toriginal = $_->{original},\tisbn = $_->{isbn}" for @
{ $results->{with
} };
12 say "No Match : (" . scalar( @
{ $results->{without
} } ) . ")";
13 say "biblionumber = $_->{biblionumber},\toriginal = $_->{original},\tisbn = $_->{isbn}" for @
{ $results->{without
} };
15 say "Without ISBN : (" . scalar( @
{ $results->{no_isbn
} } ) . ")";
16 say "biblionumber = $_->{biblionumber}" for @
{ $results->{no_isbn
} };