# encoding: EUCJP
# This file is encoded in EUC-JP.
die "This file is not encoded in EUC-JP.\n" if q{¤¢} ne "\xa4\xa2";

use Char;
BEGIN {
    print "1..9\n";
    if ($] >= 5.020) {
        require feature;
        feature::->import('signatures');
        require warnings;
        warnings::->unimport('experimental::signatures');
    }
    else {
        for my $tno (1 .. 9) {
            print qq{ok - $tno SKIP $^X @{[__FILE__]}\n};
        }
        exit;
    }
}

sub f001 ($a="¥½") { $a }
if (f001() eq "¥½") {
    print qq{ok - 1 sub f001 (\$a="¥½") $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 1 sub f001 (\$a="¥½") $^X @{[__FILE__]}\n};
}

sub f002 ($a=qq{¥½}) { $a }
if (f002() eq '¥½') {
    print qq{ok - 2 sub f002 (\$a=qq{¥½}) $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 2 sub f002 (\$a=qq{¥½}) $^X @{[__FILE__]}\n};
}

sub f003 ($a=<<END) { $a }
¥½
END
if (f003() eq "¥½\n") {
    print qq{ok - 3 sub f003 (\$a=<<END) $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 3 sub f003 (\$a=<<END) $^X @{[__FILE__]}\n};
}

sub f004 ($a=<<"END") { $a }
¥½
END
if (f004() eq "¥½\n") {
    print qq{ok - 4 sub f004 (\$a=<<"END") $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 4 sub f004 (\$a=<<"END") $^X @{[__FILE__]}\n};
}

sub f005 ($a='¥½') { $a }
if (f005() eq '¥½') {
    print qq{ok - 5 sub f005 (\$a='¥½') $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 5 sub f005 (\$a='¥½') $^X @{[__FILE__]}\n};
}

sub f006 ($a=q{¥½}) { $a }
if (f006() eq '¥½') {
    print qq{ok - 6 sub f006 (\$a=q{¥½}) $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 6 sub f006 (\$a=q{¥½}) $^X @{[__FILE__]}\n};
}

sub f007 ($a=<<'END') { $a }
¥½
END
if (f007() eq "¥½\n") {
    print qq{ok - 7 sub f007 (\$a=<<'END') $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 7 sub f007 (\$a=<<'END') $^X @{[__FILE__]}\n};
}

sub f008 ($a=qr{¥½}) { $a }
if ('¥½' =~ f008()) {
    print qq{ok - 8 sub f008 (\$a=qr{¥½}) $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 8 sub f008 (\$a=qr{¥½}) $^X @{[__FILE__]}\n};
}

sub f009 ($a=qr'¥½') { $a }
if ('¥½' =~ f009()) {
    print qq{ok - 9 sub f009 (\$a=qr'¥½') $^X @{[__FILE__]}\n};
}
else {
    print qq{not ok - 9 sub f009 (\$a=qr'¥½') $^X @{[__FILE__]}\n};
}

__END__