}
}
+sub keep_leading_zeros {
+ my $self = shift;
+
+ {
+ local $" = "', '";
+ push @mock::calls, __PACKAGE__ . "::keep_leading_zeros( '@_' )";
+ }
+}
+
+sub insert_bitmap {
+ my $self = shift;
+
+ {
+ local $" = "', '";
+ push @mock::calls, __PACKAGE__ . "::insert_bitmap( '@_' )";
+ }
+}
+
+sub freeze_panes {
+ my $self = shift;
+
+ {
+ local $" = "', '";
+ push @mock::calls, __PACKAGE__ . "::freeze_panes( '@_' )";
+ }
+}
+
1;
__END__