1package IRC::Schema::ResultSet::Channel; 2 3use IRC::Schema::CandyRS; 4 5sub test_experimental { eval <<'EVAL' 6 sub ($a) { $a + 1} 7EVAL 8} 9 101; 11