daily pastebin goal
61%
SHARE
TWEET

Untitled

a guest Jun 9th, 2011 1,360 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. # Специально для барафага :3
  3.  
  4. {
  5. package AnalBall;
  6.  
  7.         use strict;
  8.  
  9.         sub new {
  10.                 my $self=$_[1]?$_[1]:{};
  11.                 bless $self;
  12.                
  13.                 $self->{diameter}=4.5 unless $self->{diameter}; # диаметр шарика по умолчанию
  14.                 $self->{color}='white' unless  $self->{color}; # цвет шарика по умолчанию
  15.                 return $self;
  16.                
  17.         }
  18.  
  19. }
  20.  
  21.  
  22. {
  23. package AnalBalls;
  24.  
  25.         use strict;
  26.  
  27.         sub new {
  28.                 my $self=$_[1]?$_[1]:{};
  29.                 bless $self;
  30.                
  31.                 $self->{count}=5 unless $self->{count}; # колчество шариков по умолчанию
  32.                
  33.                 my @balls;
  34.                
  35.                 push @balls, AnalBall->new({diameter=>$self->{diameter}}) for (1..$self->{count});
  36.                
  37.                 $self->{balls}=\@balls;
  38.                
  39.                 return $self;
  40.         }
  41.        
  42.         sub push_in { # Засовываем шарик в жопу. Аргументы - обьект педачелло
  43.                 my ($self, $ass)=@_;
  44.                 return $ass->store( pop @{$self->{balls}} );
  45.         }
  46.        
  47.         sub pop_out { # Вынимаем шарик. Аргументы функции - обьект педачелло
  48.                 my ($self, $ass)=@_;
  49.                 push @{$self->{balls}, $ass->restore();
  50.         }
  51.        
  52.  
  53. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top