From f9c4c954ed3b1bfb23eadf5615894acf3fb1c133 Mon Sep 17 00:00:00 2001
From: Nigel Kukard <nkukard@lbsd.net>
Date: Sun, 1 Mar 2009 11:50:32 +0000
Subject: [PATCH] * Add rawattr() which returns the raw value of an attribute
---
Radius/Packet.pm | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/Radius/Packet.pm b/Radius/Packet.pm
index 25bec34c..ff19cc7a 100644
--- a/Radius/Packet.pm
+++ b/Radius/Packet.pm
@@ -124,6 +124,18 @@ sub attr
return;
}
+sub rawattr
+{
+ my ($self, $name ) = @_;
+
+ my @attr = $self->_attributes;
+
+ for (my $i = $#attr; $i >= 0; $i-- ) {
+ return $attr[$i][2] if $attr[$i][0] eq $name;
+ }
+ return;
+}
+
sub attributes {
my ($self) = @_;
--
GitLab