package Vector::Template;
use strict;

sub process {
	my ($templatefile, $env) = @_;

	open FILE, "templates/$templatefile.frag"
		or die "Could not open template: $templatefile";
	while (<FILE>) {
		s/\$(\w+)/$env->{$1}/ge;
		print;
	}
	close FILE;
}

1;