grivo (grivo) wrote,
grivo
grivo

  • Mood:
  • Music:

\ smoke

14:18:28 [----] sevast:
$sevast->smoke_tabakk() unless $sevast->pizdetc()
$cmapuk->smoke_tabakk() unless $cmapuk->pizdetc()
14:21:51 [----] cmapuk[0nline]:
my $cmapuk = Smoker->new(source => $ENV{'BOXPATH'});
while($cmapuk->is_alive){
   $cmapuk->pull(1);
   $cmapuk->smoke;
}

14:42:24 [----] sevast:
use Sevast;
use Cmapuk;
use Tobacco::Cigarettes;
# $sevast and $cmapuk inherit Smoker.pm and Programmer.pm, so we do not need to use these modules
my $sevast = new Sevast();
my $cmapuk = new Cmapuk();
for (keys in %ENV) {
if ($_ =~ /KENT.*?Минздрав/i) {
$main::cigaretteBox = new Tobacco::Cigarettes(\@{$_}) || warn "this is not a cigarette box\n";
}
if ($cigaretteBox) {
$sevast->smoke($sevast->shiftCigarette(@{$cigaretteBox}));
} else {
$sevast->askForCigarette($cmapuk);
}
Subscribe
  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 2 comments