my $class = shift;
if (@_ == 2 and $tc1->check($_[0]) and $tc2->check($_[1])) {
+ my ($from, $to) = @_;
@_ = (
- from => $_[0],
- to => $_[1],
+ from => $from,
+ to => $to,
+ width => $to->x - $from->x,
+ height => $to->y - $from->y,
);
} else {
my %args = @_;