Content-Length: 1680 | pFad | https://github.com/Unidata/netCDF-Perl/raw/master/perl/NetCDF.pm
th: 1668 package NetCDF; require Exporter; require AutoLoader; require DynaLoader; @ISA = qw(Exporter AutoLoader DynaLoader); # Items to export into callers namespace by default # (move infrequently used names to @EXPORT_OK below) @EXPORT = qw( FILL_BYTE FILL_CHAR FILL_DOUBLE FILL_FLOAT FILL_LONG FILL_SHORT MAX_ATTRS MAX_DIMS MAX_NAME MAX_OPEN MAX_VARS MAX_VAR_DIMS BYTE CHAR CLOBBER DOUBLE EBADDIM EBADID EBADTYPE EEXIST EGLOBAL EINDEFINE EINVAL EINVALCOORDS EMAXATTS EMAXDIMS EMAXNAME EMAXVARS ENAMEINUSE ENFILE ENOTATT ENOTINDEFINE ENOTNC ENOTVAR ENTOOL EPERM ESTS EUNLIMIT EUNLIMPOS EXDR FATAL FILL FLOAT GLOBAL INDEF LONG NOCLOBBER NOERR NOFILL NOWRITE SHORT SYSERR UNLIMITED VERBOSE WRITE ); # Other items we are prepared to export if requested @EXPORT_OK = qw( ); sub AUTOLOAD { if (@_ > 1) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } local($constname); ($constname = $AUTOLOAD) =~ s/.*:://; $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { if ($! =~ /Invalid/) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } else { ($pack,$file,$line) = caller; die "Your vendor has not defined netCDF macro $constname, used at $file line $line. "; } } eval "sub $AUTOLOAD { $val }"; goto &$AUTOLOAD; } bootstrap NetCDF; # Preloaded methods go here. Autoload methods go after __END__, and are # processed by the autosplit program. 1; __END__Fetched URL: https://github.com/Unidata/netCDF-Perl/raw/master/perl/NetCDF.pm
Alternative Proxies: