view release on metacpan or  search on metacpan

lib/Data/Shark/DIO.pm  view on Meta::CPAN

      my $tc = new Cache::FileCache({'namespace' => $ns . '_' . $dions . '.' . $diotag});
      $tc->clear() if !$debug;
      # setup cache
      $stmt .= '  $' . $c_tag . ' = $' . $c_tag . ' || new Cache::FileCache( {\'namespace\' => \'' . $ns . '_' . $dions . '.' . $diotag . '\'});' . "\n";
      $stmt .= '  my $hkey = \'' . $diotag . '\';' . "\n";
      if ($in_keys) {
        foreach my $k (@{ $in_keys }{ sort {$a <=> $b} keys %{ $in_keys } }) {
          $stmt .= '  $hkey .= $args->{\'' . $k->{'name'} . '\'};' . "\n" if $k->{'name'};
        } 
      }
      $stmt .= '  my $cdata = $' . $c_tag . '->get($hkey);' . "\n";
      $stmt .= 'if ($cdata) { ' . $pstmt . '}' . "\n" if $profile;
      $stmt .= '  return $cdata if $cdata;' . "\n";
    }
    $stmt .= '  my $dbi = ' . $config->{'dbi_func'} . ';' . "\n"; 
    $stmt .= '  my $sth;' . "\n\n";

    # process input
    for ($dioh->{'cd_type'}) {
      /^DBI$/ && do {
        if ($in_keys) {
          $dioh->{'cd_stmt'} =~ s/'/\\'/g;
          $stmt .= '  my $sql = q{' . $dioh->{'cd_stmt'} . '};' . "\n";