use strict;
use warnings;
package Device::SerialPort;

my @calls;
sub TIEHANDLE {
  bless { calls => [], args => \@_ }, __PACKAGE__;
}

sub calls {
  my $self = shift;
  splice @calls;
}

sub AUTOLOAD {
  my $self = shift;
  our $AUTOLOAD;
  push @calls, [$AUTOLOAD, @_];
}

1;