1234567891011121314151617181920212223 |
- package Trog::Renderer::blob;
- use strict;
- use warnings;
- no warnings 'experimental';
- use feature qw{signatures state};
- =head1 Trog::Renderer::blob
- Render blobs, such as files stored in a DB.
- =cut
- # TODO use the streaming code from Trog::FileHandler, etc.
- sub render (%options) {
- my $code = delete $options{code};
- my $headers = delete $options{headers};
- my $body = $options{body};
- return [ $code, [$headers], [$body] ];
- }
- 1;
|