view release on metacpan or  search on metacpan

mimi.fatpack  view on Meta::CPAN

  $(BASEEXT)$(OBJ_EXT): $(BASEEXT).xsi
  
  $(BASEEXT).xsi: $(DBI_DRIVER_XST) '.$xstf_h.'
  	$(PERL) -p -e "s/~DRIVER~/$(BASEEXT)/g" $(DBI_DRIVER_XST) > $(BASEEXT).xsi
  
  # ---
  '}package DBDI;1;
DBI_DBD

$fatpacked{"DBI/DBD/Metadata.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_DBD_METADATA';
  package DBI::DBD::Metadata;use strict;use Exporter ();use Carp;use DBI;use DBI::Const::GetInfoType qw(%GetInfoType);our@ISA=qw(Exporter);our@EXPORT=qw(write_getinfo_pm write_typeinfo_pm);our$VERSION="0.03";sub write_getinfo_pm {my ($dsn,$user,$pass...
  
  # Transfer this to ${driver}.pm
  
  # The get_info function was automatically generated by
  # DBI::DBD::Metadata::write_getinfo_pm v$DBI::DBD::Metadata::VERSION.
  
  package DBD::${driver}::db;         # This line can be removed once transferred.
  
      sub get_info {
          my(\$dbh, \$info_type) = \@_;