File Coverage

blib/lib/Biblio/COUNTER/Report/Release2/JournalReport2.pm
Criterion Covered Total %
statement 9 22 40.9
branch n/a
condition n/a
subroutine 3 9 33.3
pod 0 6 0.0
total 12 37 32.4


line stmt bran cond sub pod time code
1             package Biblio::COUNTER::Report::Release2::JournalReport2;
2              
3 1     1   2604 use strict;
  1         2  
  1         38  
4 1     1   6 use warnings;
  1         1  
  1         37  
5              
6 1     1   5 use Biblio::COUNTER::Report qw(TURNAWAYS MAY_BE_BLANK NOT_BLANK);
  1         1  
  1         2561  
7              
8             @Biblio::COUNTER::Report::Release2::JournalReport2::ISA = qw(Biblio::COUNTER::Report);
9              
10 0     0 0   sub canonical_report_name { 'Journal Report 2 (R2)' }
11 0     0 0   sub canonical_report_description { 'Turnaways by Month and Journal' };
12 0     0 0   sub canonical_report_code { 'JR2' }
13 0     0 0   sub release_number { 2 }
14              
15             sub process_header_rows {
16 0     0 0   my ($self) = @_;
17            
18             # Report name and title
19 0           $self->begin_row
20             ->check_report_name
21             ->check_report_description
22             ->end_row;
23            
24             # Report criteria
25 0           $self->begin_row
26             ->check_report_criteria
27             ->end_row;
28            
29             # Date run label
30 0           $self->begin_row
31             ->check_label('Date run:')
32             ->end_row;
33            
34             # Date run
35 0           $self->begin_row
36             ->check_date_run
37             ->end_row;
38            
39             # Data column labels
40 0           $self->begin_row
41             ->check_blank
42             ->check_label('Publisher', qr/^(?i)pub/)
43             ->check_label('Platform', qr/^(?i)plat/)
44             ->check_label('Print ISSN', qr/^(?i)print issn/)
45             ->check_label('Online ISSN', qr/^(?i)online issn/)
46             ->check_label('Page type', qr/^(?i)page\s+type/)
47             ->check_period_labels
48             ->check_label('YTD Total')
49             ->end_row;
50            
51             # Data summary
52 0           $self->begin_row
53             ->check_label('Total for all journals')
54             ->check_publisher(MAY_BE_BLANK)
55             ->check_platform(MAY_BE_BLANK)
56             ->check_blank
57             ->check_blank
58             ->check_blank
59             ->check_count_by_periods(Biblio::COUNTER::Report::REQUESTS)
60             ->check_ytd_total(Biblio::COUNTER::Report::REQUESTS)
61             ->end_row;
62             }
63              
64             sub process_record {
65 0     0 0   my ($self) = @_;
66 0           $self->begin_row
67             ->check_title(NOT_BLANK)
68             ->check_publisher(NOT_BLANK)
69             ->check_platform(NOT_BLANK)
70             ->check_print_issn
71             ->check_online_issn
72             ->check_label('Full-text Turnaways', qr/^(?i)turnaways/)
73             ->check_count_by_periods(Biblio::COUNTER::Report::REQUESTS)
74             ->check_ytd_total
75             ->end_row;
76             }
77              
78             1;
79              
80             =pod
81              
82             =head1 NAME
83              
84             Biblio::COUNTER::Report::Release2::JournalReport2 - a JR2 (R2) COUNTER report
85              
86             =head1 SYNOPSIS
87              
88             $report = Biblio::COUNTER::Report::Release2::JournalReport2->new(
89             'file' => $file,
90             );
91             $report->process;
92              
93             =cut