Cmd-Dwarf

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

オプションで utf8 と feature の挙動は変更することが出来ます。

        sub import {
                my ($class, %args) = @_;

                $utf8 = 1 unless defined $args{utf8};
                $feature = "5.10" unless defined $args{feature};

                warnings->import;
                strict->import;
                boolean->import;
                boolean->export_to_level(1);

                if ($utf8) {
                        utf8->import;
                }

                if ($feature ne 'legacy') {
                        require 'feature.pm';
                        feature->import(":" . $feature);

examples/helloworld/app/lib/Dwarf/Pragma.pm  view on Meta::CPAN

my $utf8;
my $feature;

sub import {
	my ($class, %args) = @_;

	$utf8 = 1 unless defined $args{utf8};
	$feature = "5.10" unless defined $args{feature};

	warnings->import;
	strict->import;
	boolean->import;
	boolean->export_to_level(1);
	autobox::Core->import;

	if ($utf8) {
		utf8->import;
	}

	if ($feature ne 'legacy') {
		require 'feature.pm';

examples/helloworld/app/lib/Dwarf/Validator/Constraint.pm  view on Meta::CPAN

package Dwarf::Validator::Constraint;
use Dwarf::Pragma;
#use Dwarf::Validator;

sub import {
	strict->import;
	warnings->import;

	no strict 'refs';
	my $pkg = caller(0);
	*{"$pkg\::rule"}      = \&rule;
	*{"$pkg\::file_rule"} = \&file_rule;
	*{"$pkg\::filter"}    = \&filter;
	*{"$pkg\::alias"}     = \&alias;
	*{"$pkg\::delsp"}     = \&delsp;
}

examples/test-validate-json-body/app/lib/Dwarf/Pragma.pm  view on Meta::CPAN

my $utf8;
my $feature;

sub import {
	my ($class, %args) = @_;

	$utf8 = 1 unless defined $args{utf8};
	$feature = "5.10" unless defined $args{feature};

	warnings->import;
	strict->import;
	boolean->import;
	boolean->export_to_level(1);
	autobox::Core->import;

	if ($utf8) {
		utf8->import;
	}

	if ($feature ne 'legacy') {
		require 'feature.pm';

examples/test-validate-json-body/app/lib/Dwarf/Validator/Constraint.pm  view on Meta::CPAN

package Dwarf::Validator::Constraint;
use Dwarf::Pragma;
#use Dwarf::Validator;

sub import {
	strict->import;
	warnings->import;

	no strict 'refs';
	my $pkg = caller(0);
	*{"$pkg\::rule"}      = \&rule;
	*{"$pkg\::file_rule"} = \&file_rule;
	*{"$pkg\::filter"}    = \&filter;
	*{"$pkg\::alias"}     = \&alias;
	*{"$pkg\::delsp"}     = \&delsp;
}

share/app/lib/Dwarf/Pragma.pm  view on Meta::CPAN

my $utf8;
my $feature;

sub import {
	my ($class, %args) = @_;

	$utf8 = 1 unless defined $args{utf8};
	$feature = "5.10" unless defined $args{feature};

	warnings->import;
	strict->import;
	boolean->import;
	boolean->export_to_level(1);
	autobox::Core->import;

	if ($utf8) {
		utf8->import;
	}

	if ($feature ne 'legacy') {
		require 'feature.pm';

share/app/lib/Dwarf/Validator/Constraint.pm  view on Meta::CPAN

package Dwarf::Validator::Constraint;
use Dwarf::Pragma;
#use Dwarf::Validator;

sub import {
	strict->import;
	warnings->import;

	no strict 'refs';
	my $pkg = caller(0);
	*{"$pkg\::rule"}      = \&rule;
	*{"$pkg\::file_rule"} = \&file_rule;
	*{"$pkg\::filter"}    = \&filter;
	*{"$pkg\::alias"}     = \&alias;
	*{"$pkg\::delsp"}     = \&delsp;
}