NAME

Data::Rx::Type::Perl::Obj - experimental / perl object type

VERSION

version 0.003

SYNOPSIS

    use Data::Rx;
    use Data::Rx::Type::Perl::Obj;
    use Test::More tests => 2;

    my $rx = Data::Rx->new({
      prefix  => {
        perl => 'tag:codesimply.com,2008:rx/perl/',
      },
      type_plugins => [ 'Data::Rx::Type::Perl::Obj' ]
    });

    my $isa_rx = $rx->make_schema({
      type       => '/perl/obj',
      isa        => 'Data::Rx',
    });

    ok($isa_rx->check($rx),   "a Data::Rx object isa Data::Rx /perl/obj");
    ok(! $isa_rx->check( 1 ), "1 is not a Data::Rx /perl/obj");

ARGUMENTS

"isa" and "does" ensure that the object passes the relevant test for the identifier given.

AUTHOR

  Ricardo SIGNES <rjbs@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2009 by Ricardo SIGNES.

This is free software; you can redistribute it and/or modify it under the same terms as perl itself.