view release on metacpan or  search on metacpan

Resumable.pm  view on Meta::CPAN

        }

    ### Set ETag header, without ETag resuming download doesn't work at all
    $req->header_out('ETag', $etag) ;

    ### Check is there is an incoming if-none-match header
    my $if_none_match = $req->header_in('If-None-Match') ;

    if ($if_none_match eq $etag)
        {
        ### send not_modified headers in case file doesn't have changed
        ### and return
        $req->status (304) ;
        $req->send_http_header ;
        return OK ;
        }

    open PATCH, "$file" or die "$file: $!";

    ### Check is there is an incoming range and if-range header
    my $range = $req->header_in('Range') ;