.\" Automatically generated by Pod::Man 4.09 (Pod::Simple 3.35) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. \*(C+ will .\" give a nicer C++. Capital omega is used to do unbreakable dashes and .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, .\" nothing in troff, for use with C<>. .tr \(*W- .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` "" . ds C' "" 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .if !\nF .nr F 0 .if \nF>0 \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} .\} .\" ======================================================================== .\" .IX Title "Declare::Constraints::Simple::Library::OO 3pm" .TH Declare::Constraints::Simple::Library::OO 3pm "2018-03-31" "perl v5.26.1" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH "NAME" Declare::Constraints::Simple::Library::OO \- OO Constraints .SH "SYNOPSIS" .IX Header "SYNOPSIS" .Vb 2 \& # accept objects or classes \& my $object_or_class = Or( IsObject, IsClass ); \& \& # valid on objects with all methods \& my $proper_object = And( IsObject, \& HasMethods( qw(foo bar) )); \& \& # validate against date objects \& my $is_date_object = IsA(\*(AqDateTime\*(Aq); .Ve .SH "DESCRIPTION" .IX Header "DESCRIPTION" This library contains the constraints for validating parameters in an object oriented manner. .SH "CONSTRAINTS" .IX Header "CONSTRAINTS" .SS "HasMethods(@methods)" .IX Subsection "HasMethods(@methods)" Returns true if the value is an object or class that \f(CW\*(C`can\*(C'\fR all the specified \f(CW@methods\fR. .PP The stack or path part of \f(CW\*(C`HasMethods\*(C'\fR looks like \f(CW\*(C`HasMethods[$method]\*(C'\fR where \f(CW$method\fR is the first found missing method. .SS "IsA(@classes)" .IX Subsection "IsA(@classes)" Is true if the passed object or class is a subclass of one of the classes mentioned in \f(CW@classes\fR. .SS "\fIIsClass()\fP" .IX Subsection "IsClass()" Valid if value is a loaded class. .SS "\fIIsObject()\fP" .IX Subsection "IsObject()" True if the value is blessed. .SH "SEE ALSO" .IX Header "SEE ALSO" Declare::Constraints::Simple, Declare::Constraints::Simple::Library .SH "AUTHOR" .IX Header "AUTHOR" Robert 'phaylon' Sedlacek \f(CW\*(C`\*(C'\fR .SH "LICENSE AND COPYRIGHT" .IX Header "LICENSE AND COPYRIGHT" This module is free software, you can redistribute it and/or modify it under the same terms as perl itself.