File Coverage

blib/lib/Switch/Perlish/Smatch/Regexp.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition	4	4	100.0
subroutine	11	11	100.0
pod			n/a
total	41	41	100.0

package Switch::Perlish::Smatch::Regexp;

$VERSION = '1.0.0';

use strict;
use warnings;

use Carp 'croak';

## DESC - Match $t against $m.
sub _VALUE {
  my($t, $m) = @_;
  return $m =~ $t;
}

## DESC - croak("Can't compare Regexp with an undef") # Suggestions welcome.
sub _UNDEF {
  croak("Can't compare Regexp with an undef");
}

## DESC - Check if $m refers to $t.
sub _SCALAR {
  my($t, $m) = @_;
  return $t == $$m;
}

## DESC - Match $t for every element in @$m.
sub _ARRAY {
  my($t, $m) = @_;
  $_ =~ $t and return 1
    for @$m;
  return
}

## DESC - Check if any of keys of %$m match the $t.
sub _HASH {
  my($t, $m) = @_;
  $_ =~ $t and return 1
    for keys %$m;
  return;
}

## DESC - Pass $t to $m.
sub _CODE {
  my($t, $m) = @_;
  return $m->($t);
}

## DESC - Match $t against $m's class.
sub _OBJECT {
  my($t, $m) = @_;
  return ref($m) =~ $t;
}

## DESC - Match $m to $t.
sub _Regexp {
  my($t, $m) = @_;
  return $m =~ $t;
}

Switch::Perlish::Smatch->register_package( __PACKAGE__, 'Regexp' );

1;

=pod

=head1 NAME

Switch::Perlish::Smatch::Regexp - The C comparatory category package.

=head1 VERSION

1.0.0 - Initial release.

=head1 DESCRIPTION

This package provides the default implementation for the C comparator
category. For more information on the comparator implementation see.
L.

=head1 SEE. ALSO

L

L

=head1 AUTHOR

Dan Brook C<<  >>

=head1 COPYRIGHT

Copyright (c) 2006, Dan Brook. All Rights Reserved. This module is free
software. It may be used, redistributed and/or modified under the same

=cut