79 |
|
|
80 |
if ( my $depends = $self->depends ) { |
if ( my $depends = $self->depends ) { |
81 |
@tests = grep { |
@tests = grep { |
82 |
|
$_ ne '' && |
83 |
! m{$0} # break recursion |
! m{$0} # break recursion |
84 |
} sort keys %{ $depends } unless @tests; |
} sort keys %{ $depends } unless @tests; |
85 |
} |
} |
102 |
warn "got ",length($html), " bytes"; |
warn "got ",length($html), " bytes"; |
103 |
|
|
104 |
while ( $html =~ s{(<style.+?/style>)}{}gs ) { |
while ( $html =~ s{(<style.+?/style>)}{}gs ) { |
105 |
$self->add_head( $1 ); |
my $style = $1; |
106 |
|
$style =~ s[((?:body|html)\s+{[^}]+})][/\* $1 \*/]sg; # remove some styles |
107 |
|
$self->add_head( $style ); |
108 |
} |
} |
109 |
|
|
110 |
$self->add_head(qq| |
$self->add_head(qq| |
114 |
td.results:hover ul.test-out { display: block; } |
td.results:hover ul.test-out { display: block; } |
115 |
</style> |
</style> |
116 |
|); |
|); |
117 |
|
$html =~ s{<div id="menu">.+?</div>}{}sg; # remove menu which doesn't work without JavaScript |
118 |
|
|
119 |
$html =~ s{^.*<body>}{}s; |
$html =~ s{^.*<body>}{}s; |
120 |
$html =~ s{</body>.*$}{}s; |
$html =~ s{</body>.*$}{}s; |