View | Details | Raw Unified | Return to bug 41521
Collapse All | Expand All

(-)a/lib/WebService/ILS/JSON.pm (-1 / +1 lines)
Lines 104-110 sub with_json_request { Link Here
104
    my $method = shift || 'post';
104
    my $method = shift || 'post';
105
105
106
    my $req_builder = "HTTP::Request::Common::".uc( $method );
106
    my $req_builder = "HTTP::Request::Common::".uc( $method );
107
    no strict 'refs';
107
    no strict 'refs'; ## no critic (ProhibitNoStrict)
108
    my $request = $req_builder->( $url );
108
    my $request = $req_builder->( $url );
109
    $self->_json_request_content($request, $post_params);
109
    $self->_json_request_content($request, $post_params);
110
    my $response = $self->_request_with_auth($request);
110
    my $response = $self->_request_with_auth($request);
(-)a/lib/WebService/ILS/OverDrive.pm (-1 / +1 lines)
Lines 273-279 sub native_search { Link Here
273
}
273
}
274
274
275
foreach my $f (qw(next prev first last)) {
275
foreach my $f (qw(next prev first last)) {
276
    no strict 'refs';
276
    no strict 'refs'; ## no critic (ProhibitNoStrict)
277
    my $method = "native_search_$f";
277
    my $method = "native_search_$f";
278
    *$method = sub {
278
    *$method = sub {
279
        my $self = shift;
279
        my $self = shift;
(-)a/lib/WebService/ILS/RecordedBooks/Partner.pm (-1 / +1 lines)
Lines 63-69 Differences to general L<WebService::ILS> interface Link Here
63
=cut
63
=cut
64
64
65
foreach my $sub (qw(place_hold remove_hold renew return)) {
65
foreach my $sub (qw(place_hold remove_hold renew return)) {
66
    no strict "refs";
66
    no strict "refs"; ## no critic (ProhibitNoStrict)
67
    *$sub = sub {
67
    *$sub = sub {
68
        my $self = shift;
68
        my $self = shift;
69
        my $patron_id = shift or croak "No patron id";
69
        my $patron_id = shift or croak "No patron id";
(-)a/lib/WebService/ILS/XML.pm (-2 / +1 lines)
Lines 73-79 sub with_xml_request { Link Here
73
    my $method = shift || 'post';
73
    my $method = shift || 'post';
74
74
75
    my $req_builder = "HTTP::Request::Common::".uc( $method );
75
    my $req_builder = "HTTP::Request::Common::".uc( $method );
76
    no strict 'refs';
76
    no strict 'refs'; ## no critic (ProhibitNoStrict)
77
    my $request = $req_builder->( $url );
77
    my $request = $req_builder->( $url );
78
    $request->header( 'Content-Type' => 'application/xml; charset=utf-8' );
78
    $request->header( 'Content-Type' => 'application/xml; charset=utf-8' );
79
    $request->content( $dom->toeString );
79
    $request->content( $dom->toeString );
80
- 

Return to bug 41521