File Coverage

blib/lib/Schema/Kwalify.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	21	23	91.3

# -*- mode: cperl; coding: latin-2 -*-

#
# $Id: Kwalify.pm,v 1.4 2007/03/04 10:50:06 eserte Exp $
# Author: Slaven Rezic
#
# Copyright (C) 2006,2007 Slaven Rezic. All rights reserved.
# This package is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Mail: [e-mail]
# WWW:  http://www.rezic.de/eserte/
#

package Schema::Kwalify;

use strict;
use warnings;

use vars qw($VERSION);
$VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);

use Kwalify qw();

sub new {
    bless {}, shift;
}

sub validate {
    my($self, $schema, $data) = @_;
    Kwalify::validate($schema, $data);
}

1;

__END__