scalar::object - automagically turns scalar constants into objects

  {
     use scalar::objects;
     my $o = 42;      # $o is a Class::Builtin::Scalar object
     print 42->length # 2;
  }
  my $n = 1;       # $n is an ordinary scalar
  print $n->length # dies

package scalar::object;
# use 5.010; -- works ok on 5.8
use strict;
use warnings;
use overload ();
use Class::Builtin::Scalar;

my $class = __PACKAGE__;

sub import {
    $^H{$class} = 1;
    overload::constant(
        map {
            $_ => sub { Class::Builtin::Scalar->new(shift) }
          } qw/integer float binary q/
    );
}

sub unimport {
    $^H{$class} = 0;
    overload::remove_constant( '', qw/integer float binary q qr/ );
}

sub in_effect {
    my $level = shift || 0;
    my $hinthash = ( caller($level) )[10];
    return $hinthash->{$class};
}

1;