| 1 | package Midas; |
| 2 | |
| 3 | use 5.008; |
| 4 | use strict; |
| 5 | use warnings; |
| 6 | |
| 7 | use Midas::Interface; |
| 8 | use Midas::Error; |
| 9 | |
| 10 | |
| 11 | require Exporter; |
| 12 | |
| 13 | |
| 14 | our @ISA = qw(Exporter); |
| 15 | |
| 16 | # Items to export into callers namespace by default. Note: do not export |
| 17 | # names by default without a very good reason. Use EXPORT_OK instead. |
| 18 | # Do not simply export all your public functions/methods/constants. |
| 19 | |
| 20 | # This allows declaration use Midas ':all'; |
| 21 | # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK |
| 22 | # will save memory. |
| 23 | our %EXPORT_TAGS = ( |
| 24 | all => [ @Error_Codes, 'midas' ], |
| 25 | errcodes => [ @Error_Codes], |
| 26 | ); |
| 27 | |
| 28 | Exporter::export_ok_tags('all'); |
| 29 | our @EXPORT = qw( |
| 30 | midas |
| 31 | ); |
| 32 | |
| 33 | our $VERSION = '3.31'; |
| 34 | |
| 35 | |
| 36 | # Preloaded methods go here. |
| 37 | |
| 38 | 1; |
| 39 | __END__ |
| 40 | # Below is stub documentation for your module. You'd better edit it! |
| 41 | |
| 42 | =head1 NAME |
| 43 | |
| 44 | Midas - Perl extension for building diags |
| 45 | |
| 46 | =head1 SYNOPSIS |
| 47 | |
| 48 | use Midas; |
| 49 | |
| 50 | my $exitcode = midas(@argv); |
| 51 | |
| 52 | =head1 ABSTRACT |
| 53 | |
| 54 | This module builds diags from assembly or C. It is intented to be |
| 55 | used by the script 'midas'. |
| 56 | |
| 57 | =head1 DESCRIPTION |
| 58 | |
| 59 | The normal module interface for midas is the function midas(). It |
| 60 | takes the same arguments as the script 'midas' and returns an exit |
| 61 | status. |
| 62 | |
| 63 | The ':errcodes' exporter tag exports the error codes as constants for |
| 64 | use in modules that need to interpret midas exit status. |
| 65 | |
| 66 | The ':all' tag exports midas() and the contents of ':test' and |
| 67 | ':errcodes'. |
| 68 | |
| 69 | =head1 SEE ALSO |
| 70 | |
| 71 | midas(1), midasformat(1). |
| 72 | |
| 73 | =head1 AUTHOR |
| 74 | |
| 75 | |
| 76 | =cut |