about summary refs log blame commit diff
path: root/t/t4034/perl/expect
blob: a1deb6b6ade898bd40f958732ee92560c366ac1c (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13












                                                                                           
<BOLD>diff --git a/pre b/post<RESET>
<BOLD>index f6610d3..e8b72ef 100644<RESET>
<BOLD>--- a/pre<RESET>
<BOLD>+++ b/post<RESET>
<CYAN>@@ -4,8 +4,8 @@<RESET>

package Frotz;<RESET>
sub new {<RESET>
	my <GREEN>(<RESET>$class<GREEN>, %opts)<RESET> = <RED>shift<RESET><GREEN>@_<RESET>;
	return bless { <GREEN>xyzzy => "nitfol", %opts<RESET> }, $class;
}<RESET>

__END__<RESET>