Add use strict, use warnings to modules.

u

Author: pstaabp

lib/Hermite.pm

@@ -233,7 +233,7 @@ sub internal_critical_points {
 }
 
 sub internal_inflection_points {
-	my ($x0, $l, $lp,, $x1, $r, $rp, $rh_roots, $rf_function) = @_;
+	my ($x0, $l, $lp, $x1, $r, $rp, $rh_roots, $rf_function) = @_;
 	#data for one segment of the hermite spline
 
 	# coefficients for the approximating polynomial

lib/Label.pm

@@ -42,6 +42,9 @@ This module defines labels for the graph objects (WWPlot).
 package Label;
 
 use strict;
+use warnings;
+
+use GD;
 
 #use Exporter;
 #use DynaLoader;

lib/Plots/Axes.pm

@@ -190,6 +190,9 @@ be visible after the fill, otherwise the fill will cover the axis. Default: 0
 
 package Plots::Axes;
 
+use strict;
+use warnings;
+
 sub new {
 	my $class = shift;
 	my $self  = {
@@ -329,4 +332,4 @@ sub bounds {
 	return $self->{xaxis}{min}, $self->{yaxis}{min}, $self->{xaxis}{max}, $self->{yaxis}{max};
 }
 
-1;
+1;

lib/Plots/Data.pm

@@ -107,6 +107,9 @@ to add / change the styles.
 
 package Plots::Data;
 
+use strict;
+use warnings;
+
 sub new {
 	my $class = shift;
 	my $self  = {

lib/Plots/GD.pm

@@ -23,6 +23,11 @@ See L<plots.pl> for more details.
 
 package Plots::GD;
 
+use GD;
+
+use strict;
+use warnings;
+
 sub new {
 	my ($class, $pgplot) = @_;
 	my $self = {
@@ -382,4 +387,4 @@ sub draw {
 	return $pgplot->ext eq 'gif' ? $self->im->gif : $self->im->png;
 }
 
-1;
+1;

lib/Plots/Plot.pm

@@ -23,17 +23,20 @@ See L<plots.pl> for more details.
 
 package Plots::Plot;
 
+use strict;
+use warnings;
+
 use Plots::Axes;
 use Plots::Data;
-use Plots::GD;
 use Plots::Tikz;
+use Plots::GD;
 
 sub new {
 	my ($class, $pg, @opts) = @_;
-	my $size  = $main::envir{onTheFlyImageSize} || 500;
+	my $size = $pg->{envir}{onTheFlyImageSize} || 500;
 
 	my $self = {
-		pg => $pg,
+		pg        => $pg,
 		imageName => {},
 		type      => 'Tikz',
 		ext       => 'svg',
@@ -158,15 +161,15 @@ sub image_type {
 # Tikz needs to use pdf for hardcopy generation.
 sub ext {
 	my $self = shift;
-	return 'pdf' if ($self->{type} eq 'Tikz' && $main::displayMode eq 'TeX');
+	return 'pdf' if ($self->{type} eq 'Tikz' && $self->{pg}{displayMode} eq 'TeX');
 	return $self->{ext};
 }
 
 # Return a copy of the tikz code (available after the image has been drawn).
 # Set $plot->{tikzDebug} to 1 to just generate the tikzCode, and not create a graph.
 sub tikz_code {
 	my $self = shift;
-	return ($self->{tikzCode} && $main::displayMode =~ /HTML/) ? '<pre>' . $self->{tikzCode} . '</pre>' : '';
+	return ($self->{tikzCode} && $self->{pg}{displayMode} =~ /HTML/) ? '<pre>' . $self->{tikzCode} . '</pre>' : '';
 }
 
 # Add functions to the graph.

lib/Plots/Tikz.pm

@@ -21,9 +21,11 @@ See L<plots.pl> for more details.
 
 =cut
 
-
 package Plots::Tikz;
 
+use strict;
+use warnings;
+
 sub new {
 	my ($class, $pgplot) = @_;
 	my $image = new LaTeXImage;

lib/Value/AnswerChecker.pm

@@ -1156,7 +1156,7 @@ sub ANS_MATRIX {
 	$def   = $self->context->lists->get('Matrix');
 	$open  = $self->{open}  || $def->{open};
 	$close = $self->{close} || $def->{close};
-	return $self->ans_matrix($extend, $name, $self->length, 1, $size, $open, $close, '',, '', %options)
+	return $self->ans_matrix($extend, $name, $self->length, 1, $size, $open, $close, '', '', %options)
 		if ($self->{ColumnVector});
 	$def   = $self->context->lists->get('Vector');
 	$open  = $self->{open}  || $def->{open};

lib/WWPlot.pm

@@ -169,6 +169,9 @@ These functions translate from real world to pixel coordinates.
 package WWPlot;
 
 use strict;
+use warnings;
+
+use GD;
 
 #use Exporter;
 #use DynaLoader;

macros/graph/plots.pl

@@ -410,4 +410,4 @@ BEGIN
 
 sub _plots_init { }
 
-sub Plot { Plots::Plot->new($main::PG,@_); }
+sub Plot { Plots::Plot->new($main::PG, @_); }