repo.or.cz
/
sgn.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
minor fixes
[sgn.git]
/
lib
/
CXGN
/
List
/
Validate.pm
blob
8b832645e942df949121c7e12daed5c34c18fbcb
1
2
package
CXGN
::
List
::
Validate
;
3
4
use
Moose
;
5
6
use
Module
::
Pluggable
require
=>
1
;
7
8
sub
validate
{
9
my
$self
=
shift
;
10
my
$schema
=
shift
;
11
my
$type
=
shift
;
12
my
$list
=
shift
;
13
14
my
$data
;
15
16
17
18
foreach
my
$p
(
$self
->
plugins
()) {
19
if
(
$type
eq
$p
->
name
()) {
20
$data
=
$p
->
validate
(
$schema
,
$list
);
21
}
22
}
23
return
$data
;
24
}
25
26
1
;