Skip to content
Snippets Groups Projects
Code owners
Assign users and groups as approvers for specific file changes. Learn more.
Plan.pm 448 B
package Plan;

use Exporter 'import';

our @EXPORT = qw ( parse_plan_csv );

sub parse_plan_csv
{
    my ($plan_csv_file) = @_;
    my @expected_results;
    my $counter = 0;

    open (FILE, $plan_csv_file);

    while (<FILE>)
    {
        if (/\s*(\d+)\s*/)
        {
            push(@expected_results, {mode => 'EXEC', nr => $counter, time => $1});
            $counter++;
        }
    }

    close (FILE); 

    return @expected_results;
}