Bivio::Type::TupleLabel
# Copyright (c) 2006 bivio Software, Inc. All Rights Reserved. # $Id$ package Bivio::Type::TupleLabel; use strict; use Bivio::Base 'Type.SyntacticString'; sub REGEX { return qr{[a-z][-\w]+}i; } sub compare_defined { my(undef, $left, $right) = @_; return lc($left) cmp lc($right); } 1;