1# You may distribute under the terms of either the GNU General Public License 2# or the Artistic License (the same terms as Perl itself) 3# 4# (C) Paul Evans, 2009-2021 -- leonerd@leonerd.org.uk 5 6package Tickit::Test::MockTerm 0.72; 7 8use v5.14; 9use warnings; 10 11use base qw( Tickit::Term ); 12 13sub new 14{ 15 my $class = shift; 16 my %args = @_; 17 18 return $class->_new_mocking( $args{lines} || 25, $args{cols} || 80 ); 19} 20 21# TODO: this needs to live in .xs code now 22# sub showlog 23# { 24# my $self = shift; 25# 26# foreach my $l ( @{ $self->methodlog } ) { 27# if( $l->[0] eq "setpen" ) { 28# my $pen = $l->[1]; 29# printf "# SETPEN(%s)\n", join( ", ", map { defined $pen->{$_} ? "$_ => $pen->{$_}" : () } sort keys %$pen ); 30# } 31# else { 32# printf "# %s(%s)\n", uc $l->[0], join( ", ", @{$l}[1..$#$l] ); 33# } 34# } 35# } 36 370x55AA; 38