[p5sagit/lib-with-preamble.git] / t / lib / my_given_example.pm

package my_given_example;

sub example_sub {
  given ($_[0]) {
    when ($_ > 0) { return 'positive' }
    when ($_ < 0) { return 'negative' }
    return 'zero'
  }
}

sub my_file { __FILE__ }
sub my_line { __LINE__ }

1;
Commit	Line	Data
dcd0209b	1	package my_given_example;
	2
	3	sub example_sub {
	4	given ($_[0]) {
	5	when ($_ > 0) { return 'positive' }
	6	when ($_ < 0) { return 'negative' }
	7	return 'zero'
	8	}
	9	}
	10
	11	sub my_file { __FILE__ }
	12	sub my_line { __LINE__ }
	13
	14	1;