Guest User

Untitled

a guest
Jun 9th, 2011
1,531
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