File Coverage

blib/lib/Syntax/Feature/Simple/V1.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	1	2	50.0
condition			n/a
subroutine	12	12	100.0
pod			n/a
total	42	43	97.6

use strictures 1;

# ABSTRACT: Version 1 of bundled syntax enhancements

package Syntax::Feature::Simple::V1;
{
  $Syntax::Feature::Simple::V1::VERSION = '0.002';
}
BEGIN {
  $Syntax::Feature::Simple::V1::AUTHORITY = 'cpan:PHAYLON';
}

use parent 'Syntax::Feature::Simple';
use syntax qw( method );

method _available_extensions {
    return qw(
        function_keyword
        moose_param_role_method_sugar
        method_keyword
        modifier_sugar
    );
}

method _can_setup_moose_param_role_method_sugar_ext ($class: $target) {
    $class->_check_is_moose_param_role($target)
}

method _can_setup_method_keyword_ext ($class: $target) {
    $class->_check_has_meta($target)
    and not
    $class->_check_is_moose_param_role($target)
}

method _can_setup_modifier_sugar_ext ($class: $target) {
    $class->_check_has_meta($target)
}

1;



=pod

=head1 NAME

Syntax::Feature::Simple::V1 - Version 1 of bundled syntax enhancements

=head1 VERSION

version 0.002

=head1 SYNOPSIS

    use syntax qw( simple/v1 );

=head1 DESCRIPTION

This is the first version of the syntax dispatcher. It will setup a function
keyword in all cases, and a method keyword and method modifiers if a
L metaclass was detected.

=head1 SEE ALSO

=over

=item L

Main feature documentation.

=back

=head1 BUGS

Please report any bugs or feature requests to [e-mail] or through the web interface at:
 http://rt.cpan.org/Public/Dist/Display.html?Name=Syntax-Feature-Simple

=head1 AUTHOR

Robert 'phaylon' Sedlacek

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Robert 'phaylon' Sedlacek.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut


__END__