File Coverage

blib/lib/Xcalibur/Rawfile.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Xcalibur::Rawfile;

require 5.8.0;

use Win32::OLE;
use Win32::OLE::Variant;
use Exporter;

our @EXPORT_OK = qw( contains_ms2 );

our $VERSION = 0.1;

sub contains_ms2{
	my $rawfile = shift;
	Win32::OLE->Option( Warn => 3 );
	# type comes from c:\Xcalibur\system\programs\XRawfile2.dll
	my $x = eval{
		Win32::OLE->new('XRawfile.XRawfile.1', sub{ $_[0]->Close } );
	};
	if($@){
		die "Could not create XRawfile object.\nDo you have the Xcalibur Development Kit installed?\nWin32::OLE error was: $@\n";
	}
	$x->Open( $rawfile );
	$x->SetCurrentController( 0, 1 ); # mass spec device, first MS device

	# print $x->GetFilters( $var, $lng );
	# $var needs to be initialized to VT_EMPTY and VT_BYREF with VT_ARRAY returned
	# Win32::OLE::Variant doesn't let us do that

	# my $i = Win32::OLE::Variant->new(VT_I4|VT_BYREF, 0);
	# $x->GetNumSpectra($i);
	# print $i;

	my $first = Win32::OLE::Variant->new(VT_I4|VT_BYREF,0);
	my $last = Win32::OLE::Variant->new(VT_I4|VT_BYREF,0);
	$x->GetFirstSpectrumNumber($first);
	$x->GetLastSpectrumNumber($last);

	for my $i ( $first .. $last ){
		# do not pass an initialization value to new or it won't work
		# this requires Activestate perl 5.8.*
		my $filter = Win32::OLE::Variant->new(VT_BSTR|VT_BYREF);
		$x->GetFilterForScanNum($i,$filter);
		return 1 if $filter =~ /\sms2\s/i;
	}
	return 0;
}

1;

__END__