diff options
author | rillig <rillig@pkgsrc.org> | 2006-01-27 00:55:08 +0000 |
---|---|---|
committer | rillig <rillig@pkgsrc.org> | 2006-01-27 00:55:08 +0000 |
commit | 825e4abfb6a9e160f3630340ed577d05485e91bb (patch) | |
tree | c601dc9be29b3ba531a557161105d77362adc22b /pkgtools | |
parent | 48fa42a5a7d8b20ea2f772bb19b3c67f960cce68 (diff) | |
download | pkgsrc-825e4abfb6a9e160f3630340ed577d05485e91bb.tar.gz |
- Reformatted simple getter/setter methods to save some space.
Diffstat (limited to 'pkgtools')
-rw-r--r-- | pkgtools/pkglint/files/pkglint.pl | 65 |
1 files changed, 19 insertions, 46 deletions
diff --git a/pkgtools/pkglint/files/pkglint.pl b/pkgtools/pkglint/files/pkglint.pl index db6e093ea97..33072581616 100644 --- a/pkgtools/pkglint/files/pkglint.pl +++ b/pkgtools/pkglint/files/pkglint.pl @@ -1,5 +1,5 @@ #! @PERL@ -# $NetBSD: pkglint.pl,v 1.488 2006/01/27 00:48:57 rillig Exp $ +# $NetBSD: pkglint.pl,v 1.489 2006/01/27 00:55:08 rillig Exp $ # # pkglint - static analyzer and checker for pkgsrc packages @@ -273,33 +273,14 @@ sub print_summary_and_exit($) { exit($errors != 0); } -sub get_verbosity() { - return $verbosity; -} -sub set_verbosity($) { - ($verbosity) = @_; -} - -sub set_explain() { - $explain_flag = true; -} -sub set_gcc_output_format() { - $gcc_output_format = true; -} - -sub get_klickibunti_flag() { - return $klickibunti_flag; -} -sub set_klickibunti_flag() { - $klickibunti_flag = true; -} - -sub get_show_source_flag() { - return $show_source_flag; -} -sub set_show_source_flag() { - $show_source_flag = true; -} +sub get_verbosity() { return $verbosity; } +sub set_verbosity($) { ($verbosity) = @_; } +sub set_explain() { $explain_flag = true; } +sub set_gcc_output_format() { $gcc_output_format = true; } +sub get_klickibunti_flag() { return $klickibunti_flag; } +sub set_klickibunti_flag() { $klickibunti_flag = true; } +sub get_show_source_flag() { return $show_source_flag; } +sub set_show_source_flag() { $show_source_flag = true; } #== End of PkgLint::Logging =============================================== @@ -398,22 +379,17 @@ sub new($$$$) { bless($self, $class); return $self; } -sub fname($) { - return shift(@_)->[FNAME]; -} -sub lines($) { - return shift(@_)->[LINES]; -} -sub text($) { - return shift(@_)->[TEXT]; -} + +sub fname($) { return shift(@_)->[FNAME]; } +sub lines($) { return shift(@_)->[LINES]; } +sub text($) { return shift(@_)->[TEXT]; } +# Note: physlines is _not_ a usual getter method. +sub is_changed($) { return shift(@_)->[CHANGED]; } + sub physlines($) { my ($self) = @_; return [@{$self->[BEFORE]}, @{$self->[PHYSLINES]}, @{$self->[AFTER]}]; } -sub is_changed($) { - return shift(@_)->[CHANGED]; -} # Only for PkgLint::String support sub substring($$$$) { @@ -565,12 +541,9 @@ sub new($$@) { $self->compress(); return $self; } -sub line($) { - return shift(@_)->[LINE]; -} -sub parts($) { - return shift(@_)->[PARTS]; -} + +sub line($) { return shift(@_)->[LINE]; } +sub parts($) { return shift(@_)->[PARTS]; } sub text($) { my ($self) = @_; |