File Coverage

blib/lib/Gcode/Interpreter.pm

Criterion	Covered	Total	%
statement	19	22	86.3
branch	1	2	50.0
condition	1	3	33.3
subroutine	6	9	66.6
pod	4	4	100.0
total	31	40	77.5

package Gcode::Interpreter;

use strict;
use warnings;

use Exporter;
use vars qw($VERSION @ISA);

$VERSION     = 1.0.1;
@ISA         = qw(Exporter);

use Gcode::Interpreter::Ultimaker;

sub new {
  my $class = shift(@_);

  my $machine_type = shift(@_);

  die "Unsupported machine type '$machine_type'\n" if($machine_type && $machine_type ne 'Ultimaker');

  return Gcode::Interpreter::Ultimaker->new(@_);
}

sub position {
  return [undef,undef,undef,undef];
}

sub stats {
  return {'duration' => undef, 'extruded' => undef};
}

sub process_line {
  return 0;
}

1;

__END__