Changeset 2733
- Timestamp:
- 05/13/10 23:29:40 (21 months ago)
- Location:
- DBIx-Class-RDBOHelpers/trunk
- Files:
-
- 2 edited
-
Changes (modified) (1 diff)
-
lib/DBIx/Class/RDBOHelpers.pm (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
DBIx-Class-RDBOHelpers/trunk/Changes
r1627 r2733 29 29 * add unique_value() method similar to Rose::DBx::Object::MoreHelpers 30 30 31 0.09 13 May 2010 32 * fix primary_key_uri_escaped per Rose::DBx::Object::MoreHelpers 0.07. 33 -
DBIx-Class-RDBOHelpers/trunk/lib/DBIx/Class/RDBOHelpers.pm
r1627 r2733 7 7 use Data::Dump qw( dump ); 8 8 9 our $VERSION = '0.0 8';9 our $VERSION = '0.09'; 10 10 11 11 =head1 NAME … … 110 110 for my $v (@vals) { 111 111 $v = '' unless defined $v; 112 $v =~ s/;/ sprintf( "%%%02X", ';' ) /eg;112 $v =~ s/;/\%3b/g; 113 113 push @esc, $v; 114 114 } … … 117 117 } 118 118 my $pk = join( ';;', @esc ); 119 $pk =~ s!/!\%2f!g; 119 120 return $pk; 120 121 }
Note: See TracChangeset
for help on using the changeset viewer.