Replace all uses of B::perlstring with XString

B has a lot of code and uses a lot of memory to load. XString just provide
B::perlstring without anything else.

Author: autarch

Changes

@@ -1,5 +1,10 @@
 {{$NEXT}}
 
+- Replaced the use of B with XString if it is installed. The latter is much
+  smaller and provides the one subroutine from B we cared about. Based on GH
+  #15. Implemented by Nicolas R.
+
+
 0.43     2018-10-26
 
 - Optimized compile-time operations to make Specio itself quicker to

cpanfile

@@ -15,7 +15,6 @@ requires "Sub::Quote" => "0";
 requires "Test::Fatal" => "0";
 requires "Test::More" => "0.96";
 requires "Try::Tiny" => "0";
-requires "XString" => "0";
 requires "overload" => "0";
 requires "parent" => "0";
 requires "perl" => "5.008";
@@ -25,6 +24,7 @@ requires "version" => "0.83";
 requires "warnings" => "0";
 recommends "Ref::Util" => "0.112";
 recommends "Sub::Util" => "1.40";
+recommends "XString" => "0";
 
 on 'test' => sub {
   requires "ExtUtils::MakeMaker" => "0";

dist.ini

@@ -21,6 +21,7 @@ Test::TidyAll.minimum_perl = 5.010000
 [Prereqs::Soften]
 module = Ref::Util
 module = Sub::Util
+module = XString
 
 [Prereqs / DevelopRequires]
 Moo = 0

lib/Specio.pm

@@ -386,6 +386,30 @@ coercions and parameterizable types. This is a misfeature.
 
 =back
 
+=head1 OPTIONAL PREREQS
+
+There are several optional prereqs that if installed will make this
+distribution better in some way.
+
+=over 4
+
+=item * L<Ref::Util>
+
+Installing this will speed up a number of type checks for built-in types.
+
+=item * L<XString>
+
+If this is installed it will be loaded instead of the L<B> module if you have
+Perl 5.10 or greater. This module is much more memory efficient than loading
+all of L<B>.
+
+=item * L<Sub::Util> or L<Sub::Name>
+
+If one of these is installed then stack traces that end up in Specio code will
+have much better subroutine names for any frames.
+
+=back
+
 =head1 WHY THE NAME?
 
 This distro was originally called "Type", but that's an awfully generic top

lib/Specio/Constraint/AnyCan.pm

@@ -5,10 +5,10 @@ use warnings;
 
 our $VERSION = '0.44';
 
-use B ();
 use List::Util 1.33 ();
 use Role::Tiny::With;
 use Scalar::Util ();
+use Specio::Helpers qw( perlstring );
 use Specio::Library::Builtins;
 use Specio::OO;
 
@@ -25,8 +25,7 @@ with 'Specio::Constraint::Role::CanType';
         my $self = shift;
         my $val  = shift;
 
-        my $methods = join ', ',
-            map { B::perlstring($_) } @{ $self->methods };
+        my $methods = join ', ', map { perlstring($_) } @{ $self->methods };
         return sprintf( <<'EOF', $val, $methods );
 (
     do {

lib/Specio/Constraint/AnyDoes.pm

@@ -5,9 +5,9 @@ use warnings;
 
 our $VERSION = '0.44';
 
-use B ();
 use Role::Tiny::With;
 use Scalar::Util ();
+use Specio::Helpers qw( perlstring );
 use Specio::Library::Builtins;
 use Specio::OO;
 
@@ -24,7 +24,7 @@ with 'Specio::Constraint::Role::DoesType';
         my $self = shift;
         my $val  = shift;
 
-        return sprintf( <<'EOF', ($val) x 8, B::perlstring( $self->role ) );
+        return sprintf( <<'EOF', ($val) x 8, perlstring( $self->role ) );
 (
     (
         Scalar::Util::blessed(%s) || (

lib/Specio/Constraint/AnyIsa.pm

@@ -5,9 +5,9 @@ use warnings;
 
 our $VERSION = '0.44';
 
-use B ();
 use Role::Tiny::With;
 use Scalar::Util ();
+use Specio::Helpers qw( perlstring );
 use Specio::Library::Builtins;
 use Specio::OO;
 
@@ -24,7 +24,7 @@ with 'Specio::Constraint::Role::IsaType';
         my $self = shift;
         my $val  = shift;
 
-        return sprintf( <<'EOF', ($val) x 7, B::perlstring( $self->class ) );
+        return sprintf( <<'EOF', ($val) x 7, perlstring( $self->class ) );
 (
     (
         Scalar::Util::blessed(%s)

lib/Specio/Constraint/Enum.pm

@@ -5,7 +5,6 @@ use warnings;
 
 our $VERSION = '0.44';
 
-use B ();
 use Role::Tiny::With;
 use Scalar::Util qw( refaddr );
 use Specio::Library::Builtins;

lib/Specio/Constraint/ObjectCan.pm

@@ -5,10 +5,10 @@ use warnings;
 
 our $VERSION = '0.44';
 
-use B ();
 use List::Util 1.33 ();
 use Role::Tiny::With;
 use Scalar::Util ();
+use Specio::Helpers qw( perlstring );
 use Specio::Library::Builtins;
 use Specio::OO;
 
@@ -25,8 +25,7 @@ with 'Specio::Constraint::Role::CanType';
         my $self = shift;
         my $val  = shift;
 
-        my $methods = join ', ',
-            map { B::perlstring($_) } @{ $self->methods };
+        my $methods = join ', ', map { perlstring($_) } @{ $self->methods };
         return sprintf( <<'EOF', $val, $methods );
 (
     do {

lib/Specio/Constraint/ObjectDoes.pm

@@ -5,9 +5,9 @@ use warnings;
 
 our $VERSION = '0.44';
 
-use B ();
 use Role::Tiny::With;
 use Scalar::Util ();
+use Specio::Helpers qw( perlstring );
 use Specio::Library::Builtins;
 use Specio::OO;
 
@@ -24,7 +24,7 @@ with 'Specio::Constraint::Role::DoesType';
         my $self = shift;
         my $val  = shift;
 
-        return sprintf( <<'EOF', ($val) x 3, B::perlstring( $self->role ) );
+        return sprintf( <<'EOF', ($val) x 3, perlstring( $self->role ) );
 ( Scalar::Util::blessed(%s) && %s->can('does') && %s->does(%s) )
 EOF
     };