return $self;
}
-sub write_string {
- my $self = shift;
-
- {
- local $" = "', '";
- push @mock::calls, __PACKAGE__ . "::write_string( '@_' )";
- }
-}
-
-sub write_number {
- my $self = shift;
-
- {
- local $" = "', '";
- push @mock::calls, __PACKAGE__ . "::write_number( '@_' )";
- }
-}
-
-sub write_blank {
- my $self = shift;
-
- {
- local $" = "', '";
- push @mock::calls, __PACKAGE__ . "::write_blank( '@_' )";
- }
-}
-
-sub write_url {
- my $self = shift;
-
- {
- local $" = "', '";
- push @mock::calls, __PACKAGE__ . "::write_url( '@_' )";
- }
-}
-
-sub write_formula {
- my $self = shift;
-
- {
- local $" = "', '";
- push @mock::calls, __PACKAGE__ . "::write_formula( '@_' )";
- }
-}
-
-sub write {
- my $self = shift;
-
- {
- local $" = "', '";
- push @mock::calls, __PACKAGE__ . "::write( '@_' )";
- }
-}
-
-sub set_row {
- my $self = shift;
-
- {
- local $" = "', '";
- push @mock::calls, __PACKAGE__ . "::set_row( '@_' )";
- }
-}
-
-sub set_column {
- my $self = shift;
-
- {
- local $" = "', '";
- push @mock::calls, __PACKAGE__ . "::set_column( '@_' )";
- }
-}
-
-sub keep_leading_zeros {
- my $self = shift;
-
- {
- local $" = "', '";
- push @mock::calls, __PACKAGE__ . "::keep_leading_zeros( '@_' )";
- }
-}
-
-sub insert_image {
- my $self = shift;
-
- {
- local $" = "', '";
- push @mock::calls, __PACKAGE__ . "::insert_image( '@_' )";
- }
+my @funcs = qw(
+ write_string write_number write_blank write_url write_formula write_date_time write
+ set_row set_column keep_leading_zeros insert_bitmap freeze_panes
+ set_landscape set_portrait merge_range hide_gridlines autofilter write_comment
+);
+
+foreach my $func ( @funcs ) {
+ no strict 'refs';
+ *$func = sub {
+ my $self = shift;
+ local $" = "', '";
+ push @mock::calls, __PACKAGE__ . "::${func}( '@_' )";
+ };
}
1;