package SpecialAttributes;

use Moose::Role;

around '_process_options' => sub {
	my $_process_options = shift;
	my $self = shift;
	my ($name, $opts) = @_;
	
	
	$opts->{'default'} = sub {
		my $self = shift;
		
		return $self->get_argument_value($name);
		
	};
	
	$self->$_process_options($name, $opts);
};

package Moose::Meta::Attribute::Custom::Trait::SpecialAttributes;
sub register_implementation {'SpecialAttributes'}
  
no Moose::Role;


1;