# Copyright (c) 2005-2010 bivio Software, Inc. All rights reserved. # # Visit http://www.bivio.biz for more info. # # This library is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License as # published by the Free Software Foundation; either version 2.1 of the # License, or (at your option) any later version. # # This library is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; If not, you may get a copy from: # http://www.opensource.org/licenses/lgpl-license.html # # $Id: PrimaryId.bunit,v 1.4 2010/09/06 17:24:36 nagler Exp $ Type(); class('Biz.ListModel'); [ from_literal => [ 0 => 0, ], to_parts => [ '100001' => [{ version => 0, type => 1, site => 0, number => 1, }], '111111111111100001' => [{ version => 0, type => 1, site => 0, number => '1111111111111', }], '1' => DIE(), ], from_parts => [ [{ version => 0, type => 1, site => 0, number => 1, }] => '100001', [{ version => 0, type => 1, site => 1, number => '1111111111111', }] => '111111111111100101', ], is_specified => [ [undef] => 0, '' => 0, 1 => 0, 2 => 1, 100001 => 1, ], is_valid => [ [undef] => 0, '' => 0, 1 => 0, 2 => 0, 100001 => 1, ], is_equal => [ [undef, undef] => 1, [1, 1] => 1, ['111111111111100001', '111111111111100001'] => 1, [1, undef] => 0, [undef, 1] => 0, [1, 2] => 0, ], ];