Group.pm 591 B

1234567891011121314151617181920212223242526272829
  1. package Logos::Generator::Base::Group;
  2. use strict;
  3. sub declarations {
  4. my $self = shift;
  5. my $group = shift;
  6. my $return = "";
  7. foreach(@{$group->classes}) {
  8. $return .= Logos::Generator::for($_)->declarations if $_->initRequired;
  9. }
  10. return $return;
  11. }
  12. sub initializers {
  13. my $self = shift;
  14. my $group = shift;
  15. my $return = "{";
  16. foreach(@{$group->classes}) {
  17. $return .= Logos::Generator::for($_)->initializers if $_->initRequired;
  18. }
  19. foreach(@{$group->functions}) {
  20. $return .= Logos::Generator::for($_)->initializers if $_->initRequired;
  21. }
  22. $return .= "}";
  23. return $return;
  24. }
  25. 1;