| File: | Dpkg/Build/Env.pm |
| Coverage: | 100.0% |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | # Copyright © 2012 Guillem Jover <guillem@debian.org> | ||||||
| 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 of the License, or | ||||||
| 6 | # (at your option) 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, see <https://www.gnu.org/licenses/>. | ||||||
| 15 | |||||||
| 16 | package Dpkg::Build::Env; | ||||||
| 17 | |||||||
| 18 | 92 92 92 | 186 37 934 | use strict; | ||||
| 19 | 92 92 92 | 137 81 8952 | use warnings; | ||||
| 20 | |||||||
| 21 | our $VERSION = '0.01'; | ||||||
| 22 | |||||||
| 23 | my %env_modified = (); | ||||||
| 24 | my %env_accessed = (); | ||||||
| 25 | |||||||
| 26 | =encoding utf8 | ||||||
| 27 | |||||||
| 28 - 46 | =head1 NAME Dpkg::Build::Env - track build environment =head1 DESCRIPTION The Dpkg::Build::Env module is used by dpkg-buildflags to track the build environment variables being used and modified. =head1 FUNCTIONS =over 4 =item set($varname, $value) Update the build environment variable $varname with value $value. Record it as being accessed and modified. =cut | ||||||
| 47 | |||||||
| 48 | sub set { | ||||||
| 49 | 4 | 1 | 4 | my ($varname, $value) = @_; | |||
| 50 | 4 | 4 | $env_modified{$varname} = 1; | ||||
| 51 | 4 | 4 | $env_accessed{$varname} = 1; | ||||
| 52 | 4 | 13 | $ENV{$varname} = $value; | ||||
| 53 | } | ||||||
| 54 | |||||||
| 55 - 60 | =item get($varname) Get the build environment variable $varname value. Record it as being accessed. =cut | ||||||
| 61 | |||||||
| 62 | sub get { | ||||||
| 63 | 345 | 1 | 179 | my $varname = shift; | |||
| 64 | 345 | 236 | $env_accessed{$varname} = 1; | ||||
| 65 | 345 | 411 | return $ENV{$varname}; | ||||
| 66 | } | ||||||
| 67 | |||||||
| 68 - 73 | =item has($varname) Return a boolean indicating whether the environment variable exists. Record it as being accessed. =cut | ||||||
| 74 | |||||||
| 75 | sub has { | ||||||
| 76 | 620 | 1 | 354 | my $varname = shift; | |||
| 77 | 620 | 395 | $env_accessed{$varname} = 1; | ||||
| 78 | 620 | 611 | return exists $ENV{$varname}; | ||||
| 79 | } | ||||||
| 80 | |||||||
| 81 - 85 | =item @list = list_accessed() Returns a list of all environment variables that have been accessed. =cut | ||||||
| 86 | |||||||
| 87 | sub list_accessed { | ||||||
| 88 | 4 | 1 | 8 | my @list = sort keys %env_accessed; | |||
| 89 | 4 | 7 | return @list; | ||||
| 90 | } | ||||||
| 91 | |||||||
| 92 - 96 | =item @list = list_modified() Returns a list of all environment variables that have been modified. =cut | ||||||
| 97 | |||||||
| 98 | sub list_modified { | ||||||
| 99 | 4 | 1 | 6 | my @list = sort keys %env_modified; | |||
| 100 | 4 | 7 | return @list; | ||||
| 101 | } | ||||||
| 102 | |||||||
| 103 | =back | ||||||
| 104 | |||||||
| 105 - 111 | =head1 CHANGES =head2 Version 0.xx This is a private module. =cut | ||||||
| 112 | |||||||
| 113 | 1; | ||||||