NAME
Venus::Regexp - Regexp Class
ABSTRACT
Regexp Class for Perl 5
SYNOPSIS
package main;
use Venus::Regexp;
my $regexp = Venus::Regexp->new(
qr/(?<greet>\w+) (?<username>\w+)/u,
);
# $regexp->search;
DESCRIPTION
This package provides methods for manipulating regexp data.
INHERITS
This package inherits behaviors from:
METHODS
This package provides the following methods:
cast
cast(string $kind) (object | undef)
The cast method converts "value" objects between different "value" object types, based on the name of the type provided. This method will return undef
if the invocant is not a Venus::Kind::Value.
Since 0.08
- cast example 1
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new; my $cast = $regexp->cast('array'); # bless({ value => [qr/(?^u:)/] }, "Venus::Array")
- cast example 2
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new; my $cast = $regexp->cast('boolean'); # bless({ value => 1 }, "Venus::Boolean")
- cast example 3
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new; my $cast = $regexp->cast('code'); # bless({ value => sub { ... } }, "Venus::Code")
- cast example 4
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new; my $cast = $regexp->cast('float'); # bless({ value => "1.0" }, "Venus::Float")
- cast example 5
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new; my $cast = $regexp->cast('hash'); # bless({ value => { "0" => qr/(?^u:)/ } }, "Venus::Hash")
- cast example 6
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new; my $cast = $regexp->cast('number'); # bless({ value => 5 }, "Venus::Number")
- cast example 7
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new; my $cast = $regexp->cast('regexp'); # bless({ value => qr/(?^u:)/ }, "Venus::Regexp")
- cast example 8
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new; my $cast = $regexp->cast('scalar'); # bless({ value => \qr/(?^u:)/ }, "Venus::Scalar")
- cast example 9
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new; my $cast = $regexp->cast('string'); # bless({ value => "qr//u" }, "Venus::String")
- cast example 10
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new; my $cast = $regexp->cast('undef'); # bless({ value => undef }, "Venus::Undef")
default
default() (regexp)
The default method returns the default value, i.e. qr//
.
Since 0.01
eq
eq(any $arg) (boolean)
The eq method performs an "equals" operation using the argument provided.
Since 0.08
- eq example 1
-
package main; use Venus::Array; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Array->new; my $result = $lvalue->eq($rvalue); # 0
- eq example 2
-
package main; use Venus::Code; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Code->new; my $result = $lvalue->eq($rvalue); # 0
- eq example 3
-
package main; use Venus::Float; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Float->new; my $result = $lvalue->eq($rvalue); # 0
- eq example 4
-
package main; use Venus::Hash; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Hash->new; my $result = $lvalue->eq($rvalue); # 0
- eq example 5
-
package main; use Venus::Number; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Number->new; my $result = $lvalue->eq($rvalue); # 0
- eq example 6
-
package main; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Regexp->new; my $result = $lvalue->eq($rvalue); # 1
- eq example 7
-
package main; use Venus::Regexp; use Venus::Scalar; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Scalar->new; my $result = $lvalue->eq($rvalue); # 0
- eq example 8
-
package main; use Venus::Regexp; use Venus::String; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::String->new; my $result = $lvalue->eq($rvalue); # 0
- eq example 9
-
package main; use Venus::Regexp; use Venus::Undef; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Undef->new; my $result = $lvalue->eq($rvalue); # 0
ge
ge(any $arg) (boolean)
The ge method performs a "greater-than-or-equal-to" operation using the argument provided.
Since 0.08
- ge example 1
-
package main; use Venus::Array; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Array->new; my $result = $lvalue->ge($rvalue); # 1
- ge example 2
-
package main; use Venus::Code; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Code->new; my $result = $lvalue->ge($rvalue); # 0
- ge example 3
-
package main; use Venus::Float; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Float->new; my $result = $lvalue->ge($rvalue); # 1
- ge example 4
-
package main; use Venus::Hash; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Hash->new; my $result = $lvalue->ge($rvalue); # 0
- ge example 5
-
package main; use Venus::Number; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Number->new; my $result = $lvalue->ge($rvalue); # 1
- ge example 6
-
package main; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Regexp->new; my $result = $lvalue->ge($rvalue); # 1
- ge example 7
-
package main; use Venus::Regexp; use Venus::Scalar; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Scalar->new; my $result = $lvalue->ge($rvalue); # 1
- ge example 8
-
package main; use Venus::Regexp; use Venus::String; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::String->new; my $result = $lvalue->ge($rvalue); # 1
- ge example 9
-
package main; use Venus::Regexp; use Venus::Undef; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Undef->new; my $result = $lvalue->ge($rvalue); # 1
gele
gele(any $arg1, any $arg2) (boolean)
The gele method performs a "greater-than-or-equal-to" operation on the 1st argument, and "lesser-than-or-equal-to" operation on the 2nd argument.
Since 0.08
- gele example 1
-
package main; use Venus::Array; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Array->new; my $result = $lvalue->gele($rvalue); # 0
- gele example 2
-
package main; use Venus::Code; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Code->new; my $result = $lvalue->gele($rvalue); # 0
- gele example 3
-
package main; use Venus::Float; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Float->new; my $result = $lvalue->gele($rvalue); # 0
- gele example 4
-
package main; use Venus::Hash; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Hash->new; my $result = $lvalue->gele($rvalue); # 0
- gele example 5
-
package main; use Venus::Number; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Number->new; my $result = $lvalue->gele($rvalue); # 0
- gele example 6
-
package main; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Regexp->new; my $result = $lvalue->gele($rvalue); # 0
- gele example 7
-
package main; use Venus::Regexp; use Venus::Scalar; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Scalar->new; my $result = $lvalue->gele($rvalue); # 0
- gele example 8
-
package main; use Venus::Regexp; use Venus::String; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::String->new; my $result = $lvalue->gele($rvalue); # 0
- gele example 9
-
package main; use Venus::Regexp; use Venus::Undef; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Undef->new; my $result = $lvalue->gele($rvalue); # 0
gt
gt(any $arg) (boolean)
The gt method performs a "greater-than" operation using the argument provided.
Since 0.08
- gt example 1
-
package main; use Venus::Array; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Array->new; my $result = $lvalue->gt($rvalue); # 1
- gt example 2
-
package main; use Venus::Code; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Code->new; my $result = $lvalue->gt($rvalue); # 0
- gt example 3
-
package main; use Venus::Float; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Float->new; my $result = $lvalue->gt($rvalue); # 1
- gt example 4
-
package main; use Venus::Hash; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Hash->new; my $result = $lvalue->gt($rvalue); # 0
- gt example 5
-
package main; use Venus::Number; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Number->new; my $result = $lvalue->gt($rvalue); # 1
- gt example 6
-
package main; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Regexp->new; my $result = $lvalue->gt($rvalue); # 0
- gt example 7
-
package main; use Venus::Regexp; use Venus::Scalar; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Scalar->new; my $result = $lvalue->gt($rvalue); # 1
- gt example 8
-
package main; use Venus::Regexp; use Venus::String; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::String->new; my $result = $lvalue->gt($rvalue); # 1
- gt example 9
-
package main; use Venus::Regexp; use Venus::Undef; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Undef->new; my $result = $lvalue->gt($rvalue); # 1
gtlt
gtlt(any $arg1, any $arg2) (boolean)
The gtlt method performs a "greater-than" operation on the 1st argument, and "lesser-than" operation on the 2nd argument.
Since 0.08
- gtlt example 1
-
package main; use Venus::Array; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Array->new; my $result = $lvalue->gtlt($rvalue); # 0
- gtlt example 2
-
package main; use Venus::Code; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Code->new; my $result = $lvalue->gtlt($rvalue); # 0
- gtlt example 3
-
package main; use Venus::Float; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Float->new; my $result = $lvalue->gtlt($rvalue); # 0
- gtlt example 4
-
package main; use Venus::Hash; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Hash->new; my $result = $lvalue->gtlt($rvalue); # 0
- gtlt example 5
-
package main; use Venus::Number; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Number->new; my $result = $lvalue->gtlt($rvalue); # 0
- gtlt example 6
-
package main; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Regexp->new; my $result = $lvalue->gtlt($rvalue); # 0
- gtlt example 7
-
package main; use Venus::Regexp; use Venus::Scalar; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Scalar->new; my $result = $lvalue->gtlt($rvalue); # 0
- gtlt example 8
-
package main; use Venus::Regexp; use Venus::String; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::String->new; my $result = $lvalue->gtlt($rvalue); # 0
- gtlt example 9
-
package main; use Venus::Regexp; use Venus::Undef; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Undef->new; my $result = $lvalue->gtlt($rvalue); # 0
le
le(any $arg) (boolean)
The le method performs a "lesser-than-or-equal-to" operation using the argument provided.
Since 0.08
- le example 1
-
package main; use Venus::Array; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Array->new; my $result = $lvalue->le($rvalue); # 0
- le example 2
-
package main; use Venus::Code; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Code->new; my $result = $lvalue->le($rvalue); # 1
- le example 3
-
package main; use Venus::Float; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Float->new; my $result = $lvalue->le($rvalue); # 0
- le example 4
-
package main; use Venus::Hash; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Hash->new; my $result = $lvalue->le($rvalue); # 1
- le example 5
-
package main; use Venus::Number; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Number->new; my $result = $lvalue->le($rvalue); # 0
- le example 6
-
package main; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Regexp->new; my $result = $lvalue->le($rvalue); # 1
- le example 7
-
package main; use Venus::Regexp; use Venus::Scalar; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Scalar->new; my $result = $lvalue->le($rvalue); # 0
- le example 8
-
package main; use Venus::Regexp; use Venus::String; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::String->new; my $result = $lvalue->le($rvalue); # 0
- le example 9
-
package main; use Venus::Regexp; use Venus::Undef; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Undef->new; my $result = $lvalue->le($rvalue); # 0
lt
lt(any $arg) (boolean)
The lt method performs a "lesser-than" operation using the argument provided.
Since 0.08
- lt example 1
-
package main; use Venus::Array; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Array->new; my $result = $lvalue->lt($rvalue); # 0
- lt example 2
-
package main; use Venus::Code; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Code->new; my $result = $lvalue->lt($rvalue); # 1
- lt example 3
-
package main; use Venus::Float; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Float->new; my $result = $lvalue->lt($rvalue); # 0
- lt example 4
-
package main; use Venus::Hash; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Hash->new; my $result = $lvalue->lt($rvalue); # 1
- lt example 5
-
package main; use Venus::Number; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Number->new; my $result = $lvalue->lt($rvalue); # 0
- lt example 6
-
package main; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Regexp->new; my $result = $lvalue->lt($rvalue); # 0
- lt example 7
-
package main; use Venus::Regexp; use Venus::Scalar; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Scalar->new; my $result = $lvalue->lt($rvalue); # 0
- lt example 8
-
package main; use Venus::Regexp; use Venus::String; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::String->new; my $result = $lvalue->lt($rvalue); # 0
- lt example 9
-
package main; use Venus::Regexp; use Venus::Undef; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Undef->new; my $result = $lvalue->lt($rvalue); # 0
ne
ne(any $arg) (boolean)
The ne method performs a "not-equal-to" operation using the argument provided.
Since 0.08
- ne example 1
-
package main; use Venus::Array; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Array->new; my $result = $lvalue->ne($rvalue); # 1
- ne example 2
-
package main; use Venus::Code; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Code->new; my $result = $lvalue->ne($rvalue); # 1
- ne example 3
-
package main; use Venus::Float; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Float->new; my $result = $lvalue->ne($rvalue); # 1
- ne example 4
-
package main; use Venus::Hash; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Hash->new; my $result = $lvalue->ne($rvalue); # 1
- ne example 5
-
package main; use Venus::Number; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Number->new; my $result = $lvalue->ne($rvalue); # 1
- ne example 6
-
package main; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Regexp->new; my $result = $lvalue->ne($rvalue); # 0
- ne example 7
-
package main; use Venus::Regexp; use Venus::Scalar; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Scalar->new; my $result = $lvalue->ne($rvalue); # 1
- ne example 8
-
package main; use Venus::Regexp; use Venus::String; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::String->new; my $result = $lvalue->ne($rvalue); # 1
- ne example 9
-
package main; use Venus::Regexp; use Venus::Undef; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Undef->new; my $result = $lvalue->ne($rvalue); # 1
numified
numified() (number)
The numified method returns the numerical representation of the object. For regexp objects the method returns the length (or character count) of the stringified object.
Since 0.08
- numified example 2
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new( qr/.*/u, ); my $numified = $regexp->numified; # 7
replace
replace(string $string, string $substr, string $flags) (Venus::Replace)
The replace method performs a regular expression substitution on the given string. The first argument is the string to match against. The second argument is the replacement string. The optional third argument might be a string representing flags to append to the s///x operator, such as 'g' or 'e'. This method will always return a Venus::Replace object which can be used to introspect the result of the operation.
Since 0.01
- replace example 1
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new( qr/(?<username>\w+)$/, ); my $replace = $regexp->replace('Hey, unknown', 'awncorp'); # bless({ ... }, 'Venus::Replace')
search
search(string $string) (Venus::Search)
The search method performs a regular expression match against the given string, this method will always return a Venus::Search object which can be used to introspect the result of the operation.
Since 0.01
- search example 1
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new( qr/(?<greet>\w+), (?<username>\w+)/, ); my $search = $regexp->search('hey, awncorp'); # bless({ ... }, 'Venus::Search')
stringified
stringified() (string)
The stringified method returns the object, stringified (i.e. a dump of the object's value).
Since 0.08
- stringified example 1
-
# given: synopsis; my $stringified = $regexp->stringified; # qr/(?<greet>\w+) (?<username>\w+)/u
- stringified example 2
-
package main; use Venus::Regexp; my $regexp = Venus::Regexp->new( qr/.*/, ); my $stringified = $regexp->stringified; # qr/.*/u
tv
tv(any $arg) (boolean)
The tv method performs a "type-and-value-equal-to" operation using argument provided.
Since 0.08
- tv example 1
-
package main; use Venus::Array; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Array->new; my $result = $lvalue->tv($rvalue); # 0
- tv example 2
-
package main; use Venus::Code; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Code->new; my $result = $lvalue->tv($rvalue); # 0
- tv example 3
-
package main; use Venus::Float; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Float->new; my $result = $lvalue->tv($rvalue); # 0
- tv example 4
-
package main; use Venus::Hash; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Hash->new; my $result = $lvalue->tv($rvalue); # 0
- tv example 5
-
package main; use Venus::Number; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Number->new; my $result = $lvalue->tv($rvalue); # 0
- tv example 6
-
package main; use Venus::Regexp; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Regexp->new; my $result = $lvalue->tv($rvalue); # 1
- tv example 7
-
package main; use Venus::Regexp; use Venus::Scalar; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Scalar->new; my $result = $lvalue->tv($rvalue); # 0
- tv example 8
-
package main; use Venus::Regexp; use Venus::String; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::String->new; my $result = $lvalue->tv($rvalue); # 0
- tv example 9
-
package main; use Venus::Regexp; use Venus::Undef; my $lvalue = Venus::Regexp->new; my $rvalue = Venus::Undef->new; my $result = $lvalue->tv($rvalue); # 0
OPERATORS
This package overloads the following operators:
- operation:
(eq)
-
This package overloads the
eq
operator.example 1
# given: synopsis; my $result = $regexp eq '(?^u:(?<greet>\\w+) (?<username>\\w+))'; # 1
- operation:
(ne)
-
This package overloads the
ne
operator.example 1
# given: synopsis; my $result = $regexp ne '(?<greet>\w+) (?<username>\w+)'; # 1
- operation:
(qr)
-
This package overloads the
qr
operator.example 1
# given: synopsis; my $result = 'Hello Friend' =~ $regexp; # 1
AUTHORS
Awncorp, awncorp@cpan.org
LICENSE
Copyright (C) 2000, Awncorp, awncorp@cpan.org
.
This program is free software, you can redistribute it and/or modify it under the terms of the Apache license version 2.0.