view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    },
    dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
    clean => { FILES => 'Acme-Shining-*' },
);

package MY;

sub test {
    my($self) = shift;
    my $test_sec = $self->SUPER::test(@_);
    substr($test_sec,index($test_sec,'TEST_VERBOSE=0'), length('TEST_VERBOSE=0') ,'TEST_VERBOSE=1');
    return $test_sec;
}

#b/c of this sub, distdir only runs on Cygwin, perm changes are for Kwalitee
sub distdir {
    my($self) = shift;
    my $distdir_sec = $self->SUPER::distdir(@_);
    #in newer perls we are patching create_distdir, in olders, distdir
    #see MM patch "6.25 alphas caused a Makefile to be added to the dist. Fixed. "
    my $repstartpos = index($distdir_sec,"\'\$(DIST_CP)\');\"");
    die "distdir cant match" if $repstartpos == -1;
    substr($distdir_sec
           ,$repstartpos
           ,length("\'\$(DIST_CP)\');\"")
           ,"\'\$(DIST_CP)\');\" \\\n\t&& cd \$(DISTVNAME) && chmod -v -x-x-x Makefile.PL"
           );
    return $distdir_sec;
}

package main;

lib/Acme/Shining.pm  view on Meta::CPAN

sub my_novel {
    do {
        print _getline();
        sleep(.001);
    } while (1)
}

sub _getline {
    my $s = "All work and no play makes Jack a dull boy\n";
    my $replace = int(rand(length("All work and no play makes Jack a dull boy\n")));
    (substr($s, $replace, 1, uc(substr($s, $replace, 1))), return $s);
}

=head1 AUTHOR

Jack Torrance, C<< <jtorrance at overlookhotel.or.us> >>

=head1 BUGS

Please report any bugs or feature requests to C<bug-acme-shining at rt.cpan.org>, or through