package DualVar;

use overload (
  '""' => sub { $_[0][0] },
  '0+' => sub { $_[0][1] },
  fallback => 1,
);

sub new { bless [ @_[1,2] ], $_[0] }

1;