/usr/share/perl5/Mojo/Asset.pm is in libmojolicious-perl 2.23-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 | package Mojo::Asset;
use Mojo::Base -base;
use Carp 'croak';
has 'end_range';
has start_range => 0;
# "Marge, it takes two to lie. One to lie and one to listen."
sub add_chunk { croak 'Method "add_chunk" not implemented by subclass' }
sub contains { croak 'Method "contains" not implemented by subclass' }
sub get_chunk { croak 'Method "get_chunk" not implemented by subclass' }
sub is_file {undef}
sub move_to { croak 'Method "move_to" not implemented by subclass' }
sub size { croak 'Method "size" not implemented by subclass' }
sub slurp { croak 'Method "slurp" not implemented by subclass' }
1;
__END__
=head1 NAME
Mojo::Asset - HTTP 1.1 content storage base class
=head1 SYNOPSIS
use Mojo::Base 'Mojo::Asset';
=head1 DESCRIPTION
L<Mojo::Asset> is an abstract base class for HTTP 1.1 content storage.
=head1 ATTRIBUTES
L<Mojo::Asset> implements the following attributes.
=head2 C<end_range>
my $end = $asset->end_range;
$asset = $asset->end_range(8);
Pretend file ends earlier.
=head2 C<start_range>
my $start = $asset->start_range;
$asset = $asset->start_range(0);
Pretend file starts later.
=head1 METHODS
L<Mojo::Asset> inherits all methods from L<Mojo::Base> and implements the
following new ones.
=head2 C<add_chunk>
$asset = $asset->add_chunk('foo bar baz');
Add chunk of data to asset.
=head2 C<contains>
my $position = $asset->contains('bar');
Check if asset contains a specific string.
=head2 C<get_chunk>
my $chunk = $asset->get_chunk($offset);
Get chunk of data starting from a specific position.
=head2 C<is_file>
my $false = $asset->is_file;
False.
=head2 C<move_to>
$asset = $asset->move_to('/foo/bar/baz.txt');
Move asset data into a specific file.
=head2 C<size>
my $size = $asset->size;
Size of asset data in bytes.
=head2 C<slurp>
my $string = $asset->slurp;
Read all asset data at once.
=head1 SEE ALSO
L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicio.us>.
=cut
|