File Coverage

lib/XML/Schema/Type/List.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition	1	2	50.0
subroutine	6	6	100.0
pod	1	2	50.0
total	35	37	94.5

#============================================================= -*-perl-*-
#
# XML::Schema::Type::List
#
# DESCRIPTION
#   Module implementing the XML Schema list datatype.
#
# AUTHOR
#   Andy Wardley
#
# COPYRIGHT
#   Copyright (C) 2001 Canon Research Centre Europe Ltd.
#   All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
# REVISION
#   $Id: List.pm,v 1.1.1.1 2001/08/29 14:30:17 abw Exp $
#
#========================================================================

package XML::Schema::Type::List;

use strict;
use XML::Schema::Type::Simple;
use base qw( XML::Schema::Type::Simple );
use vars qw( $VERSION $DEBUG $ERROR @MANDATORY @FACETS );

$VERSION = sprintf("%d.%02d", q$Revision: 1.1.1.1 $ =~ /(\d+)\.(\d+)/);
$DEBUG   = 0 unless defined $DEBUG;
$ERROR   = '';

@MANDATORY = qw( itemType );
@FACETS = (
    whiteSpace  => 'collapse',
    sub { $_[1]->split($_[0]) },
);

sub split {
    my ($self, $instance) = @_;
    my $base = $self->{ itemType }
	|| return $self->error('list has no itemType');
    my $i = 0;

    $instance->{ value } = [
	map {
	    $base->instance($_)
		|| return $self->error("list item $i: " . $base->error());
	    $i++;
	} split(/\s+/, $instance->{ value })
    ];

    return 1;
}

sub init {
    my ($self, $config) = @_;
    $self->SUPER::init($config)
	|| return;
    $self->{ _VARIETY } = 'list';
    return $self;
}


__END__