Mercurial > pub > Impl
view Lib/IMPL/ORM/Helpers.pm @ 197:6b1dda998839
Added IMPL::declare, IMPL::require, to simplify module definitions
IMPL::Transform now admires object inheritance while searching for the transformation
Added HTTP some exceptions
IMPL::Web::Application::RestResource almost implemented
author | sergey |
---|---|
date | Thu, 19 Apr 2012 02:10:02 +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;