sub UNIVERSAL::property {
   require Magic::Attach;
   my $self = shift;
   my $property_name = shift;
   return Magic::Attached::attached($self, $property_name);
}

sub UNIVERSAL::but {
   require Magic::Attach;
   my $self = shift;
   my($property_name, $value) =@_;
   Magic::Attach::attach($self, $property_name, $value);
}