'countrycode' => { label => 'Country code',
type => 'text',
disable_inventory => 1,
+ disable_select => 1,
},
'phonenum' => 'Phone number',
'pin' => { label => 'Personal Identification Number',
type => 'text',
disable_inventory => 1,
+ disable_select => 1,
},
},
};
$self->SUPER::check;
}
+=item check_pin
+
+Checks the supplied PIN against the PIN in the database. Returns true for a
+sucessful authentication, false if no match.
+
+=cut
+
+sub check_pin {
+ my($self, $check_pin) = @_;
+ $check_pin eq $self->pin;
+}
+
=back
=head1 BUGS