File Coverage

blib/lib/CAD/Format/DWG/Version.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	28	28	100.0

package CAD::Format::DWG::Version;

use strict;
use warnings;

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

# Constants.
# Based on https://ru.wikipedia.org/wiki/DWG
Readonly::Hash my %DWGVER => (
	# DWG magic => DWG name and publication order
	'MC0.0' => { 'name' => 'DWG R1.0', 'order' => 1 },
	'AC1.2' => { 'name' => 'DWG R1.2', 'order' => 2 },
	'AC1.40' => { 'name' => 'DWG R1.40', 'order' => 3 },
	'AC1.50' => { 'name' => 'DWG R2.05', 'order' => 4 },
	'AC2.10' => { 'name' => 'DWG R2.10', 'order' => 5 },
	'AC1001' => { 'name' => 'DWG R2.22', 'order' => 8 },
	'AC1002' => { 'name' => 'DWG R2.50', 'order' => 9 },
	'AC1003' => { 'name' => 'DWG R2.60', 'order' => 10 },
	'AC1004' => { 'name' => 'DWG R9', 'order' => 11 },
	'AC1006' => { 'name' => 'DWG R10', 'order' => 12 },
	'AC1009' => { 'name' => 'DWG R11/12', 'order' => 13 },
	'AC1010' => { 'name' => 'DWG pre-R13 a', 'order' => 14 },
	'AC1011' => { 'name' => 'DWG pre-R13 b', 'order' => 15 },
	'AC1012' => { 'name' => 'DWG R13', 'order' => 16 },
	'AC1013' => { 'name' => 'DWG R13 beta', 'order' => 17 },
	'AC1014' => { 'name' => 'DWG R14', 'order' => 18 },
	'AC1500' => { 'name' => 'DWG 2000 beta', 'order' => 19 },
	'AC1015' => { 'name' => 'DWG 2000', 'order' => 20 },
	'AC402a' => { 'name' => 'DWG 2004 alpha', 'order' => 21 },
	'AC402b' => { 'name' => 'DWG 2004 beta', 'order' => 22 },
	'AC1018' => { 'name' => 'DWG 2004', 'order' => 23 },
	'AC1021' => { 'name' => 'DWG 2007', 'order' => 24 },
	'AC1024' => { 'name' => 'DWG 2010', 'order' => 25 },
	'AC1027' => { 'name' => 'DWG 2013', 'order' => 26 },
	'AC1032' => { 'name' => 'DWG 2018', 'order' => 27 },
	'AC103-4' => { 'name' => 'DWG 2022 beta', 'order' => 28 },
);

our $VERSION = 0.01;

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

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

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

	# Object.
	return $self;
}

sub list_of_dwg_identifiers {
	my $self = shift;

	my @keys = sort { $DWGVER{$a}->{'order'} <=> $DWGVER{$b}->{'order'} } keys %DWGVER;

	return @keys;
}

1;

__END__