What set does


sub set :lvalue {
  my $foo;
  tie $foo,
      'Data::Dimensions::SickTie', @_;
  $foo;
}

sub TIESCALAR {
  my $class = shift;
  return bless [@_], $class;
}