File Coverage

blib/lib/Evo/Class.pm

Criterion	Covered	Total	%
statement	125	125	100.0
branch	24	46	52.1
condition			n/a
subroutine	31	31	100.0
pod	5	9	55.5
total	185	211	87.6

package Evo::Class;
use Evo '-Export export_proxy; Evo::Class::Meta; Evo::Class::Base';

export_proxy '::Syntax', qw(lazy rw ro optional check inject no_method);

sub import ($me, @list) {
  my $caller = caller;
  my $meta   = Evo::Class::Meta->register($caller);
  no strict 'refs';    ## no critic
  push @{"${caller}::ISA"}, 'Evo::Class::Base' unless $caller->isa('Evo::Class::Base');
  Evo::Export->install_in($caller, $me, @list ? @list : '*');
}

sub META ($me, $dest) : ExportGen {
  sub { Evo::Class::Meta->find_or_croak($dest); };
}

sub requires ($me, $dest) : ExportGen {

  sub (@names) {
    my $meta = Evo::Class::Meta->find_or_croak($dest);
    $meta->reg_requirement($_) for @names;
  };
}


sub Over ($dest, $code, $name) : Attr {
  Evo::Class::Meta->find_or_croak($dest)->mark_as_overridden($name);
}

sub Private ($dest, $code, $name) : Attr {
  Evo::Class::Meta->find_or_croak($dest)->mark_as_private($name);
}

sub has ($me, $dest) : ExportGen {
  sub ($name, @opts) {
    Evo::Class::Meta->find_or_croak($dest)->reg_attr($name, @opts);
  };
}

sub has_over ($me, $dest) : ExportGen {
  sub ($name, @opts) {
    Evo::Class::Meta->find_or_croak($dest)->reg_attr_over($name, @opts);
  };
}

sub extends ($me, $dest) : ExportGen {
  sub(@parents) {
    Evo::Class::Meta->find_or_croak($dest)->extend_with($_) for @parents;
  };
}

sub implements ($me, $dest) : ExportGen {
  sub(@parents) {
    Evo::Class::Meta->find_or_croak($dest)->check_implementation($_) for @parents;
  };
}


sub with ($me, $dest) : ExportGen {

  sub (@parents) {
    my $meta = Evo::Class::Meta->find_or_croak($dest);
    foreach my $parent (@parents) {
      $meta->extend_with($parent);
      $meta->check_implementation($parent);
    }
  };
}


1;

__END__