Commit | Line | Data |
b6bc5a5d |
1 | package Spreadsheet::WriteExcel::Worksheet; |
2 | |
3 | use strict; |
4 | |
5 | use mock; |
6 | |
7 | sub new { |
8 | my $self = bless { |
9 | }, shift; |
10 | |
11 | { |
12 | local $" = "', '"; |
13 | push @mock::calls, __PACKAGE__ . "::new( '@_' )"; |
14 | } |
15 | |
16 | return $self; |
17 | } |
18 | |
82112547 |
19 | my @funcs = qw( |
20 | write_string write_number write_blank write_url write_formula write |
21 | set_row set_column keep_leading_zeros insert_bitmap freeze_panes |
22 | set_landscape set_portrait |
23 | ); |
24 | |
25 | foreach my $func ( @funcs ) { |
26 | no strict 'refs'; |
27 | *$func = sub { |
28 | my $self = shift; |
29 | local $" = "', '"; |
30 | push @mock::calls, __PACKAGE__ . "::${func}( '@_' )"; |
31 | }; |
d3018037 |
32 | } |
33 | |
b6bc5a5d |
34 | 1; |
35 | __END__ |