view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

      chmod(0666, $_t);
   }


   sub ACTION_install {
       my $self = shift;
       $self->SUPER::ACTION_install(@_);
       my $ddir =  $self->install_destination('lib');
       #TODO give user choices about installing the quotes database
       #my $ques = 'Where do you want to install the quotes database?';
       #my $quote_dest = $self->prompt($ques, $ddir);
       my $db = q{};
       my $perms = 0666;
       my $d_perms = 0777;
       #if ($quote_dest != $ddir) {
       #    die $! unless -d dirname $quote_dest;
       #    $db = $quote_dest;
       #    $perms = $self->prompt('File Permissions for the quotes database?',
       #                   $perms);
       #}
       if (!$db) {
         $db =
           File::Spec->catfile($ddir, 'ACME', 'QuoteDB', 'DB', 'quotedb', 'quotes.db');
       }
       ##chown('THIS_UNIX_USER' $db);
       ## prompt for the chown
       # XXX we need to change/fix this
       # ideas, let installer/user decide
       # create a new system user
       # others?
       ## create quotes db as world writable,... yikes
       chmod($d_perms, dirname($db));
       chmod($perms, $db);
   }
   
EOF

Makefile.PL  view on Meta::CPAN

# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
    
    unless (eval "use Module::Build::Compat 0.02; 1" ) {
      print "This module requires Module::Build to install itself.\n";
      
      require ExtUtils::MakeMaker;
      my $yn = ExtUtils::MakeMaker::prompt
	('  Install Module::Build now from CPAN?', 'y');
      
      unless ($yn =~ /^y/i) {
	die " *** Cannot install without Module::Build.  Exiting ...\n";
      }
      
      require Cwd;
      require File::Spec;
      require CPAN;
      

t/data/python_quotes.txt  view on Meta::CPAN

acid-washed jeans and your Ernest Hemingway and your object-oriented languages
and your fax machines and your hula hoops and your zoot suits and your strange
slang phrases like "That's so bogus" or "What a shocking bad hat" and those
atonal composers like Arnold Schoenberg and Milton Babbit that you kids seem to
like these days and your cubist painters and your Ally McBeal and that guy in
Titanic and your TCP/IP protocol and your heads filled with all that Cartesian
dualism these days and ... well, I just don't get you kids. <shakes head
ruefully again>
      -- A.M. Kuchling, 1 Oct 1998

    E.g., at the REBOL prompt I typed
send tim@email.msn.com "Did this work?"
     and in response it dialed my modem, connected to my ISP, and then REBOL
crashed after provoking an invalid page fault in kernel32.dll. Then my
connection broke, and the modem dialed and connected again. Then it just sat
there until it timed out.
    now-*that's*-user-friendly<wink>-ly y'rs
      -- Tim Peters, 24 Sep 1998

I've reinvented the idea of variables and types as in a programming language,
something I do on every project.