File Coverage

blib/lib/CAD/AutoCAD/Version.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	37	37	100.0

package CAD::AutoCAD::Version;

use strict;
use warnings;

use Class::Utils qw(set_params);
use Readonly;

# Constants.
# Based on https://autodesk.blogs.com/between_the_lines/autocad-release-history.html
Readonly::Hash my %ACADVER => (
	# ACADVER => Version of AutoCAD
	'MC0.0' => 'Version 1.0',
	'AC1.2' => 'Version 1.2',
	'AC1.3' => 'Version 1.3',
	'AC1.40' => 'Version 1.40',
	'AC1.50' => 'Version 2.05',
	'AC2.10' => 'Version 2.10',
	'AC2.21' => 'Version 2.21',
	'AC2.22' => 'Version 2.22',
	'AC1001' => 'Version 2.40',
	'AC1002' => 'Version 2.50',
	'AC1003' => 'Version 2.60',
	'AC1004' => 'Release 9',
	'AC1006' => 'Release 10',
	'AC1009' => 'Release 11/12',
	'AC1012' => 'Release 13',
	'AC1013' => 'Release 13c3',
	'AC1014' => 'Release 14',
	'AC1015' => 'AutoCAD 2000',
	'AC1016' => 'AutoCAD 2000i',
	'AC1017' => 'AutoCAD 2002',
	'AC1018' => 'AutoCAD 2004',
	'AC1019' => 'AutoCAD 2005',
	'AC1020' => 'AutoCAD 2006',
	'AC1021' => 'AutoCAD 2007',
	'AC1022' => 'AutoCAD 2008',
	'AC1023' => 'AutoCAD 2009',
	'AC1024' => 'AutoCAD 2010',
	'AC1025' => 'AutoCAD 2011',
	'AC1026' => 'AutoCAD 2012',
	'AC1027' => 'AutoCAD 2013',
	'AC1028' => 'AutoCAD 2014',
	'AC1029' => 'AutoCAD 2015',
	'AC1030' => 'AutoCAD 2016',
	'AC1031' => 'AutoCAD 2017',
	'AC1032' => 'AutoCAD 2018',
	'AC1033' => 'AutoCAD 2019',
	'AC1034' => 'AutoCAD 2020',
	'AC1035' => 'AutoCAD 2021',
);

our $VERSION = 0.05;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Process params.
	set_params($self, @params);

	# Object.
	return $self;
}

sub list_of_acad_identifiers {
	my $self = shift;

	return keys %ACADVER;
}

sub list_of_acad_identifiers_real {
	my $self = shift;

	my @mcs = sort grep { $_ =~ m/^MC/ms } keys %ACADVER;
	my @ac_dot = sort grep { $_ =~ m/^AC\d+\.\d+$/ms } keys %ACADVER;
	my @ac = sort grep { $_ =~ m/^AC\d+$/ms } keys %ACADVER;

	my @ids = (@mcs, @ac_dot, @ac);

	return @ids;
}

1;

__END__