## This file is auto-generated (at 2008-11-24T04:21:27Z). ## Do not edit by hand! use strict; package Char::Class::Katakana; our $VERSION = '1.02'; use Exporter; use vars qw(@EXPORT_OK @ISA $VERSION); @ISA = qw(Exporter); =head1 NAME Char::Class::Katakana - Regular Expression Character Classes - C =cut sub import ($;@) { my ($self, @sub) = (shift, @_); for (@sub) { no strict 'refs'; *{'main::'.$_} = \&{$_}; } $Exporter::ExportLevel = 1; $self->SUPER::import (@_); $Exporter::ExportLevel = 0; } @EXPORT_OK = qw(InKatakanaAll InKatakanaDigraph InKatakanaHatsuon InKatakanaSeion InKatakanaSemiVoiced InKatakanaSmall InKatakanaVoiced); sub InKatakanaAll { < =item C =item C =item C =item C =item C =item C =back =cut =head1 EXAMPLE use Char::Class::Katakana; if ($s =~ /\p{InSeion}/) { print "Match!\n"; } =head1 LICENSE Copyright 2008 Wakaba This library and the library generated by it is free software; you can redistribute them and/or modify them under the same terms as Perl itself. =cut 1; ### Katakana.pm ends here