#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	
	foreach my $field ($this->mcpsession_packages) {
		my $obj=$this->$field;
		next unless ref $obj && length $obj->package;

		$this->mcpsession_send('mcp-negotiate-can',
			'package' => $obj->package,
			'min-version' => $obj->min_version,
			'max-version'=> $obj->max_version,
		);
	}
	$this->mcpsession_send('mcp-negotiate-end');

	return 1;
}
