3 |
extends 'Frey'; |
extends 'Frey'; |
4 |
with 'Frey::Web'; |
with 'Frey::Web'; |
5 |
with 'Frey::Config'; |
with 'Frey::Config'; |
6 |
|
with 'Frey::Escape'; |
7 |
|
|
8 |
=head1 NAME |
=head1 NAME |
9 |
|
|
65 |
$html = $o->markup; |
$html = $o->markup; |
66 |
warn ">>> markup $class ",length( $html ), " bytes\n"; |
warn ">>> markup $class ",length( $html ), " bytes\n"; |
67 |
} elsif ( $o->can('data') ) { |
} elsif ( $o->can('data') ) { |
68 |
$html = '<code>' . dump( $o->data ) . '</code>'; |
$html = '<code>' . $self->html_escape( dump( $o->data ) ) . '</code>'; |
69 |
} else { |
} else { |
70 |
$html = "IGNORE: $class ", $o->dump; |
$html = "IGNORE: $class ", $o->dump; |
71 |
warn $html; |
warn $html; |