\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("\n"); document.write(" \n"); document.write(" \n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write(" \n"); document.write("

\n"); document.write(" \n"); document.write(" \n"); document.write("

\n"); document.write(" \n"); document.write("

1\n");
document.write("2\n");
document.write("3\n");
document.write("4\n");
document.write("5\n");
document.write("6\n");
document.write("7\n");
document.write("8\n");
document.write("9\n");
document.write("10\n");
document.write("11\n");
document.write("12\n");
document.write("13\n");
document.write("14\n");
document.write("15\n");
document.write("16\n");
document.write("17\n");
document.write("18\n");
document.write("19\n");
document.write("20\n");
document.write("21\n");
document.write("22\n");
document.write("23\n");
document.write("24\n");
document.write("25\n");
document.write("26\n");
document.write("27\n");
document.write("28\n");
document.write("29\n");
document.write("30\n");
document.write("31\n");
document.write("32\n");
document.write("33\n");
document.write("34\n");
document.write("35\n");
document.write("36\n");
document.write("37\n");
document.write("38\n");
document.write("39\n");
document.write("40\n");
document.write("41\n");
document.write("42\n");
document.write("43\n");
document.write("44\n");
document.write("45\n");
document.write("46\n");
document.write("47\n");
document.write("48\n");
document.write("49\n");
document.write("50\n");
document.write("51\n");
document.write("52\n");
document.write("53\n");
document.write("54\n");
document.write("55\n");
document.write("56\n");
document.write("57\n");
document.write("58\n");
document.write("59\n");
document.write("60\n");
document.write("61\n");
document.write("62\n");
document.write("63\n");
document.write("64\n");
document.write("65\n");
document.write("66\n");
document.write("67\n");
document.write("68\n");
document.write("69\n");
document.write("70\n");
document.write("71\n");
document.write("72\n");
document.write("73\n");
document.write("74\n");
document.write("75\n");
document.write("76\n");
document.write("77\n");
document.write("78\n");
document.write("79\n");
document.write("<\/pre>\n");
document.write("			<\/td>\n");
document.write("

\n"); document.write("

use<\/span> Test::More tests <\/span>=> 12;\n");
document.write("\n");
document.write("package<\/span> TryCatch::Error::Simple::Base;<\/span><\/span>\n");
document.write("\n");
document.write("use<\/span> base \'TryCatch::Error\'<\/span>;\n");
document.write("\n");
document.write("sub<\/span> new<\/span> <\/span>{\n");
document.write("    <\/span><\/span>my<\/span> $proto<\/span> = shift<\/span>;\n");
document.write("    <\/span><\/span>my<\/span> $args<\/span>  = { @_<\/span> };\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>my<\/span> $class<\/span> = ref<\/span> $proto<\/span> || $proto<\/span>;\n");
document.write("    <\/span><\/span>my<\/span> $self<\/span> = $class<\/span>-><\/span>SUPER::new( @_<\/span> );\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>$self<\/span>-><\/span>{object<\/span>} = $args<\/span>-><\/span>{object<\/span>};\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>return<\/span> $self<\/span>;\n");
document.write("}\n");
document.write("\n");
document.write("sub<\/span> get_object<\/span> <\/span>{\n");
document.write("    <\/span><\/span>my<\/span> $self<\/span> = shift<\/span>;\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>return<\/span> $self<\/span>-><\/span>{object<\/span>};\n");
document.write("}\n");
document.write("\n");
document.write("sub<\/span> set_object<\/span> <\/span>{\n");
document.write("    <\/span><\/span>my<\/span> $self<\/span> = shift<\/span>;\n");
document.write("    <\/span><\/span>my<\/span> $arg<\/span>  = shift<\/span>;\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>$self<\/span>-><\/span>{object<\/span>} = $arg<\/span>;\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>return<\/span> $self<\/span>;\n");
document.write("}\n");
document.write("\n");
document.write("package<\/span> TryCatch::Error::Simple::Moose;<\/span><\/span>\n");
document.write("\n");
document.write("use<\/span> MooseX::FollowPBP;\n");
document.write("use<\/span> Moose;\n");
document.write("\n");
document.write("extends \'TryCatch::Error\'<\/span>;\n");
document.write("\n");
document.write("has \'object\'<\/span> =><\/span> (\n");
document.write("    <\/span><\/span>is       <\/span>=> \'rw\'<\/span>,\n");
document.write("    <\/span><\/span>isa      <\/span>=> \'Object\'<\/span>,\n");
document.write("    <\/span><\/span>default  <\/span>=> undef<\/span>,\n");
document.write(");\n");
document.write("\n");
document.write("__PACKAGE__<\/span>-><\/span>meta-><\/span>make_immutable;\n");
document.write("no<\/span> Moose;\n");
document.write("no<\/span> MooseX::FollowPBP;\n");
document.write("\n");
document.write("package<\/span> main;<\/span><\/span>\n");
document.write("\n");
document.write("my<\/span> $be<\/span> = TryCatch::Error::Simple::Base-><\/span>new;\n");
document.write("\n");
document.write("is( $be<\/span>-><\/span>get_value, 0, \'Correct value\'<\/span> );\n");
document.write("is( $be<\/span>-><\/span>get_message, \'\'<\/span>, \'Correct message\'<\/span> );\n");
document.write("is( $be<\/span>-><\/span>get_object, undef<\/span>, \'Correct object\'<\/span> );\n");
document.write("\n");
document.write("$be<\/span>-><\/span>set_value( 1 );\n");
document.write("$be<\/span>-><\/span>set_message( \'An error\'<\/span> );\n");
document.write("$be<\/span>-><\/span>set_object( bless<\/span> { foo <\/span>=> \'bar\'<\/span> }, \'MyObject\'<\/span> );\n");
document.write("\n");
document.write("is( $be<\/span>-><\/span>get_value, 1, \'Correct value\'<\/span> );\n");
document.write("is( $be<\/span>-><\/span>get_message, \'An error\'<\/span>, \'Correct message\'<\/span> );\n");
document.write("isa_ok( $be<\/span>-><\/span>get_object, \'MyObject\'<\/span> );\n");
document.write("\n");
document.write("my<\/span> $me<\/span> = TryCatch::Error::Simple::Moose-><\/span>new;\n");
document.write("\n");
document.write("is( $me<\/span>-><\/span>get_value, 0, \'Correct value\'<\/span> );\n");
document.write("is( $me<\/span>-><\/span>get_message, \'\'<\/span>, \'Correct message\'<\/span> );\n");
document.write("is( $me<\/span>-><\/span>get_object, undef<\/span>, \'Correct object\'<\/span> );\n");
document.write("\n");
document.write("$me<\/span>-><\/span>set_value( 1 );\n");
document.write("$me<\/span>-><\/span>set_message( \'An error\'<\/span> );\n");
document.write("$me<\/span>-><\/span>set_object( bless<\/span> { foo <\/span>=> \'bar\'<\/span> }, \'MyObject\'<\/span> );\n");
document.write("\n");
document.write("is( $me<\/span>-><\/span>get_value, 1, \'Correct value\'<\/span> );\n");
document.write("is( $me<\/span>-><\/span>get_message, \'An error\'<\/span>, \'Correct message\'<\/span> );\n");
document.write("isa_ok( $me<\/span>-><\/span>get_object, \'MyObject\'<\/span> );\n");
document.write("<\/pre><\/pre>\n");
document.write("		<\/td>\n");
document.write("		<\/tr>\n");
document.write("		<\/table>\n");
document.write("	\n");
document.write("	<\/div>\n");
document.write("\n");
document.write("\n");
document.write("  \n");
document.write("  \n");
document.write("  \n");
document.write("    \n");
document.write("      \n");
document.write("      <\/a>\n");
document.write("    <\/div>\n");
document.write("  \n");
document.write("    Pastie #420257<\/a> linked directly from Pastie<\/a>.\n");
document.write("  <\/div><\/div>");