File Coverage

blib/lib/Rubyish/Syntax/class.pm

Criterion	Covered	Total	%
statement	14	16	87.5
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	18	22	81.8

package Rubyish::Syntax::class;
use Devel::Declare;

sub class { $_[0]->(); };

sub import {
    my ($class) = @_;
    my $caller = caller;

    {
        no strict;
        *{"${caller}::class"} = \&class;
    }

    Devel::Declare->setup_for(
        $caller => {
            'class' => [
                DECLARE_PACKAGE,
                sub {
                    my ($usepack, $use, $inpack, $name, $proto, $is_block) = @_;
                    return (sub (&) { shift; }, undef, "package ${name}; use Rubyish;");
                }
            ]
        }
    );
};

1;

__END__