@@ -37,8 +37,10 @@ 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 ),
41- undef , ' raw content is just as undef as normal' );
40+ is(
41+ $mech -> content( raw => 1 ),
42+ undef , ' raw content is just as undef as normal'
43+ );
4244
4345$mech -> update_html($html );
4446
@@ -67,8 +69,10 @@ my $content = $mech->content( base_href => 'foo' );
6769like( $content , qr / base href="foo"/ , ' Found the base href' );
6870
6971$content = $mech -> content( base_href => undef );
70- like( $content , qr [ base href="http://example.com/"] ,
71- ' Found the new base href' );
72+ like(
73+ $content , qr [ base href="http://example.com/"] ,
74+ ' Found the new base href'
75+ );
7276
7377$mech -> {res } = Test::MockResponse-> new(
7478 raw_content => ' this is the raw content' ,
@@ -80,7 +84,10 @@ $content = $mech->content( raw => 1 );
8084is( $content , ' this is the raw content' , ' raw => 1' );
8185
8286$content = $mech -> content( decoded_by_headers => 1 );
83- is( $content , ' this is a slightly decoded content' , ' decoded_by_headers => 1' );
87+ is(
88+ $content , ' this is a slightly decoded content' ,
89+ ' decoded_by_headers => 1'
90+ );
8491
8592$content = $mech -> content( charset => ' whatever' );
8693is( $content , ' this is charset whatever' , ' charset => ...' );
0 commit comments