@@ -37,7 +37,8 @@ my $mech = WWW::Mechanize->new();
3737$mech -> {base } = ' http://example.com/' ;
3838
3939is( $mech -> content, undef , ' content starts out as undef' );
40- is( $mech -> content(raw => 1), undef , ' raw content is just as undef as normal' );
40+ is( $mech -> content( raw => 1 ),
41+ undef , ' raw content is just as undef as normal' );
4142
4243$mech -> update_html($html );
4344
@@ -66,10 +67,8 @@ my $content = $mech->content( base_href => 'foo' );
6667like( $content , qr / base href="foo"/ , ' Found the base href' );
6768
6869$content = $mech -> content( base_href => undef );
69- like(
70- $content , qr [ base href="http://example.com/"] ,
71- ' Found the new base href'
72- );
70+ like( $content , qr [ base href="http://example.com/"] ,
71+ ' Found the new base href' );
7372
7473$mech -> {res } = Test::MockResponse-> new(
7574 raw_content => ' this is the raw content' ,
@@ -81,10 +80,7 @@ $content = $mech->content( raw => 1 );
8180is( $content , ' this is the raw content' , ' raw => 1' );
8281
8382$content = $mech -> content( decoded_by_headers => 1 );
84- is(
85- $content , ' this is a slightly decoded content' ,
86- ' decoded_by_headers => 1'
87- );
83+ is( $content , ' this is a slightly decoded content' , ' decoded_by_headers => 1' );
8884
8985$content = $mech -> content( charset => ' whatever' );
9086is( $content , ' this is charset whatever' , ' charset => ...' );
0 commit comments