| … | |
… | |
| 1474 | =item $env = $term->env |
1474 | =item $env = $term->env |
| 1475 | |
1475 | |
| 1476 | Returns a copy of the environment in effect for the terminal as a hashref |
1476 | Returns a copy of the environment in effect for the terminal as a hashref |
| 1477 | similar to C<\%ENV>. |
1477 | similar to C<\%ENV>. |
| 1478 | |
1478 | |
|
|
1479 | =item @envv = $term->envv |
|
|
1480 | |
|
|
1481 | Returns the environment as array of strings of the form C<VAR=VALUE>. |
|
|
1482 | |
|
|
1483 | =item @argv = $term->argv |
|
|
1484 | |
|
|
1485 | Return the argument vector as this terminal, similar to @ARGV, but |
|
|
1486 | includes the program name as first element. |
|
|
1487 | |
| 1479 | =cut |
1488 | =cut |
| 1480 | |
1489 | |
| 1481 | sub env { |
1490 | sub env { |
| 1482 | if (my $env = $_[0]->_env) { |
|
|
| 1483 | +{ map /^([^=]+)(?:=(.*))?$/s && ($1 => $2), @$env } |
1491 | +{ map /^([^=]+)(?:=(.*))?$/s && ($1 => $2), $_[0]->envv } |
| 1484 | } else { |
|
|
| 1485 | +{ %ENV } |
|
|
| 1486 | } |
|
|
| 1487 | } |
1492 | } |
| 1488 | |
1493 | |
| 1489 | =item $modifiermask = $term->ModLevel3Mask |
1494 | =item $modifiermask = $term->ModLevel3Mask |
| 1490 | |
1495 | |
| 1491 | =item $modifiermask = $term->ModMetaMask |
1496 | =item $modifiermask = $term->ModMetaMask |
