view Lib/IMPL/ORM/Helpers.pm @ 109:ddf0f037d460

IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT) Some fixes to the web document model. (beta version)
author wizard
date Mon, 17 May 2010 05:12:08 +0400
parents 16ada169ca75
children
line wrap: on
line source

package IMPL::ORM::Helpers;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(&Map &Box);

sub Map($$) {
    my ($TKey,$TValue) = @_;
    
    $TKey =~ s/:://g;
    $TValue =~ s/:://g;
    
    return "IMPL::ORM::Map::${TKey}${TValue}";
}

sub Box($) {
    my ($TValue) = @_;
    $TValue =~ s/:://g;
    return "IMPL::ORM::Box::$TValue";
}

1;