blob.pm 388 B

1234567891011121314151617181920
  1. package Trog::Renderer::blob;
  2. use v5.36;
  3. use re '/aa';
  4. =head1 Trog::Renderer::blob
  5. Render blobs, such as files stored in a DB.
  6. =cut
  7. # TODO use the streaming code from Trog::FileHandler, etc.
  8. sub render (%options) {
  9. my $code = delete $options{code};
  10. my $headers = delete $options{headers};
  11. my $body = $options{body};
  12. return [ $code, [$headers], [$body] ];
  13. }
  14. 1;