package Class::With::A::Long::Namespace::Scalar_object;
sub new { return bless \$_, 'Scalar_object'; }
1;