49 |
is => 'rw', |
is => 'rw', |
50 |
isa => 'Str', |
isa => 'Str', |
51 |
default => 'text/html', |
default => 'text/html', |
52 |
|
documentation => 'Content-type header', |
53 |
|
); |
54 |
|
|
55 |
|
has 'dump_max_bytes' => ( |
56 |
|
is => 'rw', |
57 |
|
isa => 'Int', |
58 |
|
default => 4096, |
59 |
|
documentation => 'Maximum dump size sent to browser before truncation', |
60 |
); |
); |
61 |
|
|
62 |
=head2 inline_smaller_than |
=head2 inline_smaller_than |
166 |
if ( ref($content) ) { |
if ( ref($content) ) { |
167 |
$content = '<code>' . dump($content) . '</code>'; |
$content = '<code>' . dump($content) . '</code>'; |
168 |
my $l = length($content); |
my $l = length($content); |
169 |
$content = qq|<span>$l bytes</span>| if $l > 1024; |
$content = qq|<span>$l bytes</span>| if $l > $self->dump_max_bytes; |
170 |
} else { |
} else { |
171 |
$content = qq|<span>$content</span>|; |
$content = qq|<span>$content</span>|; |
172 |
} |
} |