=cut
=head3 Scalar
Return object set in scalar context
sub Scalar {
my ( $self, $set, $method ) = @_;
$set = $set->$method;
-