home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / automake-1.8 / Automake / ItemDef.pm < prev    next >
Encoding:
Perl POD Document  |  2005-10-16  |  2.5 KB  |  114 lines
  1. # Copyright (C) 2003  Free Software Foundation, Inc.
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2, or (at your option)
  6. # any later version.
  7.  
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12.  
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  16. # 02111-1307, USA.
  17.  
  18. package Automake::ItemDef;
  19. use strict;
  20. use Carp;
  21.  
  22. =head1 NAME
  23.  
  24. Automake::ItemDef - base class for Automake::VarDef and Automake::RuleDef
  25.  
  26. =head1 DESCRIPTION
  27.  
  28. =head2 Methods
  29.  
  30. =over 4
  31.  
  32. =item C<my $def = Automake::new ($comment, $location, $owner)>
  33.  
  34. Create a new Makefile-item definition.
  35.  
  36. C<$comment> is any comment preceding the definition.  (Because
  37. Automake reorders items in the output, it also tries to carry comments
  38. around.)
  39.  
  40. C<$location> is the place where the definition occured, it should be
  41. an instance of L<Automake::Location>.
  42.  
  43. C<$owner> specifies who owns the rule.
  44.  
  45. =cut
  46.  
  47. sub new ($$$$)
  48. {
  49.   my ($class, $comment, $location, $owner) = @_;
  50.  
  51.   my $self = {
  52.     comment => $comment,
  53.     location => $location,
  54.     owner => $owner,
  55.   };
  56.   bless $self, $class;
  57.  
  58.   return $self;
  59. }
  60.  
  61. =item C<$def-E<gt>comment>
  62.  
  63. =item C<$def-E<gt>location>
  64.  
  65. =item C<$def-E<gt>owner>
  66.  
  67. Accessors to the various constituents of an C<ItemDef>.  See the
  68. documentation of C<new>'s arguments for a description of these.
  69.  
  70. =cut
  71.  
  72. sub comment ($)
  73. {
  74.   my ($self) = @_;
  75.   return $self->{'comment'};
  76. }
  77.  
  78. sub location ($)
  79. {
  80.   my ($self) = @_;
  81.   return $self->{'location'};
  82. }
  83.  
  84. sub owner ($)
  85. {
  86.   my ($self) = @_;
  87.   return $self->{'owner'};
  88. }
  89.  
  90. =head1 SEE ALSO
  91.  
  92. L<Automake::VarDef>, and L<Automake::RuleDef>.
  93.  
  94. =cut
  95.  
  96. 1;
  97.  
  98. ### Setup "GNU" style for perl-mode and cperl-mode.
  99. ## Local Variables:
  100. ## perl-indent-level: 2
  101. ## perl-continued-statement-offset: 2
  102. ## perl-continued-brace-offset: 0
  103. ## perl-brace-offset: 0
  104. ## perl-brace-imaginary-offset: 0
  105. ## perl-label-offset: -2
  106. ## cperl-indent-level: 2
  107. ## cperl-brace-offset: 0
  108. ## cperl-continued-brace-offset: 0
  109. ## cperl-label-offset: -2
  110. ## cperl-extra-newline-before-brace: t
  111. ## cperl-merge-trailing-else: nil
  112. ## cperl-continued-statement-offset: 2
  113. ## End:
  114.