view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  * Moose: put plot_options into HashRef
  * Moose: Add driver for SR830 LIA
  * Add Lab::Moose::Plot: Moose based thin wrapper to PDL::Graphics::Gnuplot
  * fix bug in TDS2024 envelope waveform handling
  * scpi_parse_sequence bugfixes
  * Add docs for Lab::Moose::DataFile::Gnuplot
  * Add Lab::Moose
  * Skip Yokogawa7651 test, if the system printf is not C99 compatible
  * Yokogawa7651: Add more tests for set_level
  * Yokogawa7651: use %g instead of %e in set_level
  * DataFolder: Use getlogin instead of getpwuid for portability
  * Fix UTF-8 bug in POD
  * Do not use taint mode for t/Lab/Test/test.t
  * New Datafolder and Datafile modules
  * Add code for controlling a Tektronix TDS2024B digital oscilloscope over a 
    USBtmc interface
  * Do not require Term::ANSIScreen, allow Term::ReadKey >= 2.32
  * Remove GenericIO subsystem

3.531 2016-11-04

lib/Lab/Moose/DataFolder.pm  view on Meta::CPAN

}

sub _create_meta_file {
    my $self = shift;
    my $time = [ gettimeofday() ];

    my %meta_data = (
        argv => [@ARGV_COPY],

        # See http://stackoverflow.com/questions/3526420/how-do-i-get-the-current-user-in-perl-in-a-portable-way
        user => getlogin() || getpwuid($<),
        host => hostname(),
        date      => strftime( "%c", localtime() ),
        timestamp => join( '.',      @{$time} ),
        version   => _get_version(),
    );

    my $meta_file = Lab::Moose::DataFile::Meta->new(
        folder   => $self,
        filename => 'META.yml',
    );