Select Code to Download

subtype USZipCodeA
      => as Value
      => where {
          /^$RE{zip}{US}{-extended => 'allow'}$/          
      };

my $zip_re = qr/^$RE{zip}{US}{-extended => 'allow'}$/;

...
      => where {
            $_ =~ $zip_re;         
      };

package AddressA;
 
...

1;

package AddressB;
 
...
has 'zip_code' => (is => 'rw', isa => 'USZipCodeB');

1;

#!/usr/bin/perl

...
         );

exit;

    Rate    A    B
A 2976/s   -- -43%
B 5187/s  74%   --

Regexp::Common::_decache
Regexp::Common::new

Class::MOP::Instance::new
Class::MOP::Instance::set_slot_value

    Rate    A    B
A 2955/s   --  -7%
B 3174/s   7%   --