… | |
… | |
17 | # |
17 | # |
18 | # You should have received a copy of the GNU General Public License |
18 | # You should have received a copy of the GNU General Public License |
19 | # along with this program. If not, see <https://www.gnu.org/licenses/>. |
19 | # along with this program. If not, see <https://www.gnu.org/licenses/>. |
20 | # |
20 | # |
21 | |
21 | |
22 | use 5.014; # numerous features needed |
22 | use 5.016; # numerous features need 5.14, __SUB__ needs 5.16 |
23 | |
23 | |
24 | our $VERSION = '1.0'; |
24 | our $VERSION = '1.0'; |
25 | our $JSON_VERSION = 1; # the versiobn of the json objects generated by this program |
25 | our $JSON_VERSION = 1; # the versiobn of the json objects generated by this program |
26 | |
26 | |
27 | =head1 NAME |
27 | =head1 NAME |
… | |
… | |
59 | |
59 | |
60 | =item Does not rely on Windows |
60 | =item Does not rely on Windows |
61 | |
61 | |
62 | As the "portable" in the name implies, this program does not rely on |
62 | As the "portable" in the name implies, this program does not rely on |
63 | C<bcdedit> or other windows programs or libraries, it works on any system |
63 | C<bcdedit> or other windows programs or libraries, it works on any system |
64 | that supports at least perl version 5.14. |
64 | that supports at least perl version 5.16. |
65 | |
65 | |
66 | =item Decodes and encodes BCD device elements |
66 | =item Decodes and encodes BCD device elements |
67 | |
67 | |
68 | PBCDEDIT can concisely decode and encode BCD device element contents. This |
68 | PBCDEDIT can concisely decode and encode BCD device element contents. This |
69 | is pretty unique, and offers a lot of potential that can't be realised |
69 | is pretty unique, and offers a lot of potential that can't be realised |
… | |
… | |
825 | permitted by law. |
825 | permitted by law. |
826 | |
826 | |
827 | =cut |
827 | =cut |
828 | |
828 | |
829 | # common sense is optional, but recommended |
829 | # common sense is optional, but recommended |
830 | #BEGIN { eval { require "common/sensex.pm"; } && common::sensex->import } |
830 | BEGIN { eval { require "common/sense.pm"; } && common::sense->import } |
831 | no warnings; |
|
|
832 | no strict; |
|
|
833 | |
831 | |
834 | use Encode (); |
832 | use Encode (); |
835 | use List::Util (); |
833 | use List::Util (); |
836 | use IO::Handle (); |
834 | use IO::Handle (); |
837 | use Time::HiRes (); |
835 | use Time::HiRes (); |