## This file is auto-generated. Do not edit by hand! use strict; package Char::Class::JISX0221; our $VERSION = '3.0'; use Carp; our @EXPORT; our @EXPORT_OK; sub import ($;@) { my $from_class = shift; my ($to_class, $file, $line) = caller; no strict 'refs'; for (@_ ? @_ : @{$from_class . '::EXPORT'}) { my $code = $from_class->can ($_) or croak qq{"$_" is not exported by the $from_class module at $file line $line}; *{$to_class . '::' . $_} = $code; } } # import =head1 NAME Char::Class::JISX0221 - Regular Expression Character Classes - C =cut @EXPORT_OK = qw(InJISX0221BasicJapanese InJISX0221FullwidthAlphanumeric InJISX0221HalfwidthKatakana InJISX0221JapaneseIdeographicsSupplement1 InJISX0221JapaneseIdeographicsSupplement2 InJISX0221JapaneseIdeographicsSupplement3 InJISX0221JapaneseNonIdeographicsSupplement); sub InJISX0221BasicJapanese { < =item C =item C =item C =item C =item C =item C =back =cut =head1 EXAMPLE use Char::Class::JISX0221 qw(InJISX0221BasicJapanese); if ($s =~ /\p{InJISX0221BasicJapanese}/) { print "Match!\n"; } =head1 LICENSE Copyright 2016 Wakaba . This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; ### JISX0221.pm ends here